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I. INT RQ PUCTIQ N 



A. BACKGROUND 

The Unrestricted Line Officer Career Planning Guidebook 

describes the Surface Warfare Community as follows: 

The Surface Warfare Community is composed of officers 
who are qualified in the surface warfare speciality, who 
man the surface ships of the Navy and whose goal is to 
command those ships. The Surface Warfare Officer (SWO) 
must, through a progression of competitive assignments, 
learn the fundamentals of engineering, weapons systems, 
and operational tactics. [Ref. 1: p. 231 

In order to obtain these qualifications, and attain the 
experience and knowledge necessary to reach the goal of 
command at sea, each surface warfare officer proceeds along 
a sequence of various assignments over a career. This 
sequence of assignments is usually described as a career 
path. There are many factors involved in detailing officers 
to their assignments, resulting in many different career 
paths. However it is possible to classify career paths into 
a small number' of groups within which all paths exhibit- the 
same basic features. In an NPS thesis entitled “The Effect 
of PCS Policy Changes on Surface Warfare Officer (SWO) 
Career Development" by R. H. HOWE, [Ref. 21, a network 
representation of SWO career paths is developed and used for 
categorizing them. The network is arranged in a rectangular 
array of nodes, where the rows stand for the general 
activities to which officers are assigned, and the columns 
represent the tour sequences, starting with the first, 
through the twelfth tour, in the career of a surface warfare 
officer. Each node in the network represents an assignment 
of a surface warfare officer, specified by an activity and a 
tour number. 
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B. PURPOSE 



The purpose of this thesis Is to use this “network 
representation" of the surface warfare officer's career path 
in developing a computer supported tool which would 
simulate, or model the movement or flow of surface warfare 
officers within this network. This decision support tool 
would assist the analyst in evaluating the impact of changes 
in policy that affect the surface warfare officer's career 
path. By using this model an analyst can address “what if“ 
type questions about tour length changes or changes to the 
career paths leading up to major command. For instance the 
model might be used to answer the question: “If we increased 
the tour at department head school to one year vice the 
current six months, what impact would that have in 
maintaining a sufficient number of officers available to 
fill executive officer (XO) billets in future years?" To 
answer this question now, the analyst would need to figure 
out how many XO billets were needed to be filled, then 
calculate the effect of changing the number of officers 
leaving department head school to go on to becoming an XO 
via several in between tours. The analyst would need to 
determine how many officers were transferred to where, and 
perform several hand calculations to determine whether all 
the XO billets would be filled. With the speed of a 
computer model the program allows the analyst to perform the 
same calculations much faster and with greater assurance of 
accuracy. The time saved could now be used to evaluate many 
more scenarios than time would permit previously. 

C. THE MODEL 

The model is designed to provide a simulation of the 
flows through the network, representing the surface warfare 
officers career paths, dependent on user input. The model 
is interactive with the user, and provides a menu of choices 
for the user to select from, when proceeding through the 



model. The model is written as a series of procedures, each 

/ 

of which are called upon by the user to carry out various 
functions within the model. These procedures are invisible 
to the user while he is operating the model. Complete 
listings of the procedures are provided in Appendix A 
through N. 

The model is written with both a new and an experienced 
user in mind. Wherever there is an opportunity for the user 
to make a mistake, there is an error trapping procedure that 
simply provides the user with a displayed warning, 
indicating that an invalid response was made, and the user 
is returned to the exact spot in the program where he made 
the error. 

The user is also provided the opportunity to choose 
whether to use default data provided with the model to 
initialize the variables in the network, or to use files 
that the user may have created when previously operating the 
model . 

The model provides for a display of data in several 
formats. For example, the number of officers at a 

particular tour for all activities allows the user to 
review the data and evaluate the results of the simulation 
run to be explained below. By utilizing the M Pr intScreen" 
function (if available) on the user's micro computer, the 
user can make hard copies of the displays for future 
re ference . 

The model simulates the flow of officers through the 
network for a time period chosen by the user. The model 
advances officers in time units of quarters, i.e. it moves 
officers from assignments to assignments each quarter. 
Selecting to run the simulation, for example, for two years 
means that the model will simulate flows for eight quarters. 

If the analyst were to use the model to answer the 
question posed above, he would change the tour length of the 
assignments that related to department head school, and then 
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establish a limit for the number of XO billets which If 
violated would cause a warning message to be displayed. For 
example, if the analyst is interested in having at least 400 
XO's, then the analyst would want to know when there were 
less than 400 XO's available. The analyst chooses the 
number of years to run the model, and observes the results. 
If in fact the change to the tour length of department head 
school reduces the number of officers available for XO 
billets at some future time, then when the number of XO's 
drops below 400 the model will display a warning message 
that will indicate how long the simulation ran before the 
parameter was violated and how many officers currently are 
present. The analyst can then decide whether to make such a 
change in the tour length. If the change is still desired, 
the analyst will need to evaluate the effect of other 
changes to the normal career path, e.g. decrease some other 
tour length after department head school, or increase the 
number of officers being transferred to XO billets, or some 
other combination of changes,’ to insure that once the tour 
length of department head school has been altered, the XO 
billets will still be filled. The analyst would be able to 
utilize the data display capabilities of the model to 
evaluate his alternatives. 

This model was designed with the increased availability 
of micro computers in mind. Written and compiled using 
Turbo Pascal Version 3.0 (Trademark of Borland 
International), this model comes in two versions. One 
version is written to be used on any IBM PC compatible micro 
computer, and another version for the Heath/Zenith Models 
100/110/120 micro computers. Both versions of the model are 
written for color monitors but will run on black and white 
monitors without any changes by the user. Because of the 
increasing availability of micro computers both in the 
workplace and in the home, the portability of this model 
should provide for increased usage, without the inherent 
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problems of waiting for terminal availability. 

In summary, the model with data chosen by the user, 
simulates the flow of officers through a typical career path 
for any number of years ahead. The results can be displayed 
at the user's options. Data/parameters can be changed by 
the user and another simulation can be run at the user's 
option. Also at the user's option, data created during the 
simulation, or data/parameters that have been changed by the 
user, can be saved to files named by the user, for future 
use. The model is highly user friendly, with short warnings 
when invalid responses have been chosen. All data can be 
displayed in usable formats. The model thus provides the 
user with virtually an unlimited number of options to 
evaluate policy changes affecting the surface warfare 
officer's career path. 
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II. ANALYTICAL DESCRIPTION OF THE MODEL 



The model described in this thesis consists of a network 
of nodes arranged in rows and columns, using either the 
default data provided with the model, or data created by the 
user as he operates the model. The network > s rows represent 
eight activities, such as sea duty or duty in Washington DC, 
to which a surface warfare officer might be ordered. Each 
of the network's columns represent one of twelve possible 
tours of duty. As shown in Figure 2.1, this creates an 
eight by twelve network of nodes. Each node in the network 
represents an assignment where a surface warfare officer 
might be sent, specified by an activity and a tour number at 
which that assignment occurs. For example, the node "3A" in 
Figure 2.1, would denote an assignment occurring during the 
third tour of duty, at activity "A". Each node also has a 
number attached representing the number of officers so 
assigned. Each node or assignment has a specific tour 
length in quarters. From each assignment, there are arcs or 
transfer paths to any one of the assignments in the next 
column. For example, node "3A" would have eight possible 
transfer paths, to nodes "4A“ through “4H". To each 
transfer path there is a percentage attached which 
represents the percentage of officers transferred from the 
source node at an end of the arc to the destination node at 
the other end of the arc. Each assignment also has a high 
and a low limit constraining the number of officers so 
assigned. For example, the node "3A" might have a high 
limit of 150 officers, and a low limit of 50 officers. The 
program will indicate to the user when a limit is violated. 
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A. THE MODEL'S PARTS 



1 . Act i v i t ies 

In this network, the rows are representing generic 
activities to which a surface warfare officer may be 
assigned during his career. These activities are 

categorized as follows: 

a. Professional Training 

Student billets in either the SWO Department 
Head or SWO (Basic) courses longer than 20 weeks. 

b. Professional Education 

Student billets at a postgraduate school or a 
war or staff college of duration longer than 20 weeks. 

c. Washington DC Tour 

Shore duty billets in the Washington 
metropolitan area not meeting any of the criteria in (a) or 
(b) above. 

d. Shore (CONUS) 

Shore duty billets within the continental United 
not meeting any of the criteria in (a), (b), or (c) 



States 
above . 



e . 



f . 



Fleet Unit 

Ship's company sea duty billets. 
Afloat Staff 



Afloat staff sea duty billets. 

g. Shore (OUTUS) 

Non-CONUS shore duty billets. 

h. Separation 

Loss of officers to the SWO community. The main 
reasons are resignation (voluntary and involuntary), 
retirement, and lateral transfer to another officer 
community. This last activity, SEPARATION, is included in 
order to provide an “assignment” to account for attrition of 
off icers . 
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2. TgMra 

Each duty station along the SWO career path that is 
longer than 20 weeks in duration is called a tour of duty. 
The model identifies these as tours starting with the first 
tour and progressing through the twelfth tour. The tours 
are represented by the columns in the network. 

3. Billet Nodes/Ass lanments 

Officers are detailed or ordered to specific 
assignments. These assignments can be described by 
specifying an activity and the number of the tour. For 
example, department head school during an officer's third 
tour of duty, would be defined in the model as "Third Tour 
Professional Training." Assignments are represented by the 
nodes in the network. Accessions to the surface warfare 
community are accounted for by the number of officers 
assigned to a specific node, namely the node “First Tour 
Fleet" which is where all officers enter the surface warfare 
community from all sources, the U.S. Naval Academy, Officer 
Candidate School (OCS), Navy Reserve Officer Training 
Courses (NROTC), etc. 

4. Tour Lengths 

Each assignment, depending on the activity and when 
the assignment occurs during the officer's career path, is 
for a specific length of time. The model defines these as 
"Tour Lengths" and allows for each possible assignment in 
the network to be up to 16 quarters (48 months) long, in 
units of quarters. For example, department head school 
during an officer's third tour is two quarters (6 months) 
long. 

5 . Arcs/Transfer Paths 

From each assignment, with the exception of the 
activity, “SEPARATION", the officer proceeds to one of eight 
possible assignments in the next column of the network. For 
example, from the "Third Tour Professional Training", the 
officer may proceed to another professional training, or a 
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professional education, or a tour In Washington, or shore 
duty (CONUS), or a fleet unit, or an afloat staff, or shore 
duty (OUTUS), or possibly separation. The number of 
officers proceeding to each of the next assignments may be 
expressed as a percentage of the total number of officers 
leaving their last assignments. These percentages will be 
called "Transfer Path Percentages" in the model, and range 
from 0 to 100, depending on how many officers can be 
expected to be ordered from one particular assignment to a 
specific next assignment during each quarter. Each billet 
node or assignment in the network (except those in the last 
row), has eight possible transfer paths associated with it. 
Some transfer path percentages assigned to some arcs are 0, 
meaning that no one is transferred along that transfer path, 
and some may be 100, meaning that all officers are 
transferred along that path. 

6. High and L&2 LluLLS. 

Certain assignments are limited In the number of 
officers that can be assigned to them at any one time. For 
example, department head school may be physically limited to 
approximately 150 seats. The model provides for a 

"user-defined" high limit which can be established for any 
assignment in the network. A warning is provided to the 

user, when that limit has been exceeded. Conversely, the 
low limits, also "user-defined", can be used to establish 
whether a billet node has enough officers assigned. The 
model once again will provide a warning to the user when the 
number of officers falls below that low limit. Specific 
instructions for establishing or changing these high and low 
limits will be explained later. 

7 . Data Files 

There are five empirical or default data files. 

a. Nodes 

This file contains the number of officers 
assigned to each specific assignment in the model. Since 
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each assignment can vary in tour length, the number of 
officers is further broken down by the number of quarters 
they have left to serve at that specific assignment. For 
example, for department head school during the third tour 
there may be 75 officers with one quarter left and 75 
officers with two quarters left to serve before being 
transferred elsewhere. 

b. Arcs 

The transfer percentages for each assignment in 
the network are contained in this file. For example, from 
department head school during the third tour, everyone 
proceeds to a fleet unit. Thus, the transfer percentages 
from “Third Tour Professional Training" to "Fourth Tour 
Fleet Unit" will be 100% and all other transfer percentages 
from "Third Tour Professional Training" will be 0%. 

c. Length 

Each assignment can range from 0 to 16 quarters 
long. The specific tour lengths for each assign ment are 
contained in this file. For example, for depart ment head 
school during the third tour the data file may list "Third 
Tour Professional Training" tour length as 2, meaning two 
quarters <6 months). 

d. High Limits 

Each assignment can have a "user- defined" high 
limit. The default high limits are contained in this file. 
For most assignments the default high limit is 9999. 

e. Low Limits 

Each assignment can have a "user- defined" low 
limit. The default low limits are contained in this file. 
For all assignments the default low limit is 0. 

B. THE MODEL'S PROCEDURES 

The model is capable of carrying out five major 
procedures: initialization of data; display of data; the 
calculation of the numbers of officers occupying assignments 
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in future years; changing data values; and saving data. 
These procedures are described below. 

1 . Initial ization 

The model variables' Initial values are contained in 
files on the disk. The values for the number of officers in 
each assignment by quarters left, the transfer path 
percentages, the tour lengths, and the high and low limits 
are contained in formatted data files that are stored on the 
program disk. The user may also create his own data files 
and these will also be formatted and stored on the disk 
under file names chosen by the user. When the model is 
started up, the user must choose whether to initialize the 
variables with the default values, or another set of values 
he had previously saved. Each of the data types i.e. 
nodes, arcs, lengths, high and low limits, are formatted 
differently. The program prevents the user from selecting 
an Improperly formatted data set during operation of the 
model. It also properly formats data that the user decides 
to save. Although the user could employ other means to read 
these data files, he should not do so, in order to avoid 
accidentally changing the format by unwittingly inserting 
hidden characters, and thus rendering the data file useless 
to the program. 

2. Displays 

The model offers several different types of data 
displays, each designed to highlight a specific type of 
data . 

a. An Activity v.s. All Tours 

This display shows the number of officers 
assigned to a generic activity for each tour. For example, 

FIRST SECOND THIRD 

WASH DC 14 34 23 



/ 
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b. A Tour v.s. All Activities 

This display shows the number of officers during 
a specific tour for all activities. For example, 

EIGHTH TOUR 

PROFESSIONAL TRAINING 0 

PROFESSIONAL EDUCATION 6 

WASHINGTON DC 25 

etc. . . 



c. Transfer Paths From a Billet 

This display shows the percentages and the 
number of officers that would be transferred from a specific 
assignment to all possible next assignments. For example. 



/ Fourth Tour Prof Trng 
/ OH or 0 officers 

FROM / 



Third Tour / Fourth Tour Prof Educ 
Prof Trng \ • 0% or 0 officers 
45 officers \ 

\ Fourth Tour Fleet 
\ 100% or 45 officers 



etc . . 

d. Transfer Paths To a Billet 

This display shows the percentages and the 
number of officers that would be transferred from all 
possible previous tour assignments to a specific assignment. 
The percentages listed are the percentages of officers 
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transferred out of all the officers present In various 
assignments of the preceding tour. For example. 



FROM Fourth Tour Prof Trng 
15% or 3 officers 

FROM Fourth Tour Prof Educ 
10% or 4 officers 

FROM Fourth Tour Fleet 
100% or 45 officers 



-\ 

\ 

\ 

> TO 

/ Fifth Tour 

/ Shore (CONUS) 

-/ 

/ 52 officers 



etc. . 



e. Billet Nodes by Quarters Left 

This display shows the number of officers 
assigned to a specific assignment broken down by the number 
of quarters they have left to serve in that assignment. For 
example , 



Third Tour Prof Trng 
Officers Assigned: 

75 with 1 quarter left 
75 with 2 quarters left 
0 with 3 quarters left 
etc.... 

3. Calculations 

The model manipulates all data by quarter and all 
data is also by quarter. For example, the number of 
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officers stationed at a specific assignment are Identified 
by how many quarters they have left to serve at that 
assignment. The transfer percentages are the percentage of 
officers in their last quarter at their current assignment 
to be transferred each quarter to their next assignment. 
The maximum tour length allowed in the model is 4 years or 
16 quarters. When the model asks for how many years and how 
many quarters to run the model, the program accepts the 
answer and converts it into quarters, then uses that number 
to determine the number of iterations the model should make. 
Upon completing the calculations, the number of quarters is 
converted back into number of years and quarters and 
displayed that way. Each quarter the performs a series of 
calculat i ons . 

a. First, for every assignment in the network, the 
numbers of officers with exactly one quarter left in their 
current assignments are placed in a temporary file. 

b. Second, for every assignment in the network, all 
officers are shifted down to one fewer quarter. For 
example, if in an assignment that is four quarters long 
there were 15 officers with three quarters left, and 10 
officers with four quarters left, after the shift there will 
be 15 officers with two quarters left, and 10 officers with 
three quarters left. 

c. Third, the numbers of officers placed in the 
temporary file are multiplied by the appropriate transfer 
percentages and the resultant numbers are placed in the next 
assignments, each with the total number of quarters left 
appropriate for that assignment. For example, if there were 
10 officers placed in the temporary file for the assignment 
“Third Tour Professional Training", the number 10 is 
multiplied by the transfer percentages for "Third Tour 
Professional Training", to determine how many of the 10 
officers will be transferred along each transfer path to 
their next assignments. If the transfer percentages for 
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“Third Tour Professional Training" are 20% to “Fourth Tour 
Washington DC", 70% to "Fourth Tour Fleet", and 10% to 
“Afloat Staff", then 2 officers will be transferred to 
"Fourth Tour Washington DC", 7 to "Fourth Tour Fleet", and l 
to “Afloat Staff." If the tour length of "Fourth Tour 
Washington DC" is 3 years <12 quarters), the 2 officers 
transferred to that assignment will have 12 quarters left. 
If the tour length for the "Fourth Tour Fleet" is 2 years 2 
quarters, the 7 officers transferred to that assignment will 
have 10 quarters left, and so on, for the other assignments. 

d. Fourth, each quarter the program calculates two 
totals. The first total is the assignment total, i.e. the 
number of officers currently assigned to each particular 
assignment. The model adds up all officers assigned regard- 
less of their quarters left in the assignment. The second 
total is the number of officers currently assigned to their 
"Xth" tour. This procedure suras up all officers currently 
serving their fourth tour, for example, in all activities. 

e. Lastly, each quarter the program matches the 
assignment totals with the high and low limits. If either 
limit has been violated, the program provides a warning to 
the user (to be fully explained later). 

4. Default Data Files 

There are five different types of data sets used by 
the program. Each one is "formatted" or "coded* 
specifically for its own application, and there is no cross 
use of data sets. The program allows the user to designate 
his own data files and store data of his choice. These 
files are also specifically "formatted" for the data type 
and stored by the program. The five types of data sets used 
are : 

a. Nodes Data 

The default data file is called "Nodes" and 
contains the number of officers assigned to each assignment, 
by quarters left. If the user uses a directory program 
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(outside the model) to determine which files are on the 
program disk, all data files that contain nodes data are 
listed as having the filetype "nod". This filetype will not 
display during operation of the program, and the user should 
not declare it when naming files in the program. The 
program will automatically assign “nod" as the filetype on 
all nodes type data files. 

b. Arcs Data 

The default data file is called "Arcs" and 
contains the transfer percentage for each transfer path in 
the network. If the user uses a directory program to 
determine which files are on the program disk, all data 
files that contain arcs data are listed as having filetype 
“ard". This filetype will not display during operation of 
the program, and the user should not declare it when naming 
files in the program. The program will automatically assign 
"ard* as the filetype on all arcs type data files. 

c. Length Data 

The default data file is "Length" and contains 
the tour length, in quarters, for every assignment in the 
network. If the user uses a directory program to determine 
which files are on the program disk, all data files that 
contain length type data are listed as having filetype 
"led*. This filetype will not display during operation of 
the program, and the user should not declare it when naming 
files in the program. The program will automatically assign 
"led" as the filetype on all length type data files. 

d. High Limit Data 

The default data file is called "Hilimit" and 
contains the upper constraints for the number of officers in 
each billet. If the user uses a directory program to 
determine which files are on the program disk, all data 
files that contain Hilimit data are listed as having 
filetype "hid". This filetype will not display during 
operation of the program, and the user should not declare it 
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when naming files in the program. The program will 
automatically assign "hid" as the flletype on all high limit 
type data files. 

e. Low Limit Data 

The default data file is called "Lolimit" and 
contains the lower constraints for the number of officers in 
each billet. If the user uses a directory program to 
determine which files are on the program disk, all data 
files that contain low limit data are listed as having 
filetype "lod". This filetype will not display during 
operation of the program, and the user should not declare it 
when naming files in the program. The program will 
automatically assign "lod" as the filetype on all low limit 
type data files. 

5 . Saving the Model's Data 

When the user has completed a session with the 
model, he may desire to save the data currently in the model 
network, for instance, the current number of officers in 
each assignment, the current transfer path percentages, the 
current assignment tour lengths, or the current high or low 
limits. The model is capable of properly formatting each 
data type and saving it in one of three ways: 

a. The user will be provided the opportunity to 
save each data type in a new file named by the user in which 
case the model will create a file using the name made up by 
the user, on the program disk, and transfer the current 
values of that data type into the new file. The data will 
automatically be properly formatted, thus allowing the user 
to recall this data for use in the future. For example, the 
user may wish to save the high limit data as a new file 
called "Newhigh," in which case the model will automatically 
assign that file the filetype "hid". 

b. The user will be provided the opportunity to 
save each data type to a file already existing on the disk. 
The model will warn the user that saving data to an existing 
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file, will overwr i te /destroy the previously saved data. For 
example, when the user chooses to save the high limit data 
to a file, the display will show the names of all the files 
on the disk that currently contain high limit data. If the 
user had previously created a file called "Newhigh", then 
this file would be listed. If the user now chose to save 
the current data to a file also called "Newhigh", then the 
old data in the file "Newhigh" would be 
overwritten/destroyed, and the data file "Newhigh" would now 
contain the current high limit data only. 

c. The user will be also be provided the 
opportunity to replace the data in the default data file 
with the current data. The model will warn the user that 
replacing the default data file with the current data is a 
permanent step. The old default data is then lost, and when 
the program initializes with the default data, it will be 
with the "new" default data. 

6 . Changing Data 

The model is also capable of changing the values of 
the various types of data the model uses, while the user is 
operating the model. To do so the user selects the option 
to change data from a menu, and by following the prompts can 
change the following data: 

a. The Number of Accessions 

The number of accessions into the surface 
warfare officer community. This is a single number that 
indicates the number of officers that have entered the Navy 
and have embarked on a career in the surface community. 
Since all prospective surface warfare officers begin their 
surface warfare careers at the Surface Warfare School 
(Basic), followed by their first tour at sea, the model uses 
the assignment "First Tour Fleet", to account for all 
accessions to the surface warfare officer community. This 
number remains the same every quarter (unless changed by the 
user), and new officers to the community only enter through 
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this assignment. The user can evaluate the impact of a 
greater or lesser number of accessions on the surface 
warfare officers career path by changing the number of 
accessions and using the model to make further computations. 

b. The Transfer Path Percentages 

The user may decide to evaluate the impact of 
changes to the path surface warfare officers take over the 
course of their career. One change might be to increase the 
number of officers that are ordered to professional 
education during their eighth tour. By changing the 
transfer path percentages from all activities in the seventh 
tour to increase the number of officers from those 
assignments to "Eighth Tour Professional Education", and 
then operating the model, the user can evaluate the effect 
that changes in the transfer paths percentages have on how 
many officers are ultimately transferred to the assignment 
“Eighth Tour Professional Education", and what impact this 
change has on tours nine through twelve. The increased 
number of officers being assigned to professional education 
in their eighth tour may decrease the officers available to 
be assigned to other eighth tour activities, and cause a gap 
of unfilled assignments in tours nine through twelve. 

c. Tour Lengths 

The user has the ability to alter the tour 
length of any assignment in the network. The user may 
choose to lengthen (up to a maximum of 16 quarters), or 
shorten a tour (down to a minimum of 0 quarters). If the 
user chooses to lengthen the tour from 4 quarters, to say, 6 
quarters, the model assumes that those officers currently 
serving in the assignment will not have their tours extended 
to meet the new tour length but instead will leave as 
previously scheduled. Similarly, if the user chooses to 
shorten the tour, those officers currently serving in the 
assignment will continue to stay at that assignment until 
they have completed their original schedule. 
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d. High Limit Numbers 

The user can change the high limit numbers for 
any assignment. This allows the user to set up a high limit 
constraint, run the model for "X" years and determine if the 
high limit constraint is ever violated. For example, in 
department head school, the physical seating capacity for 
students may be 150 seats. Of those students attending 
department head school, some are in their third tours and 
some in their fourth, e.g. 80% in their third tour, and 20% 
in their fourth tour. So 120 seats can be occupied by third 
tour officers and 30 seats can be occupied by fourth tour 
officers. These numbers may be used as the high limits that 
are imposed on the assignments, "Third Tour Professional 
Training" (120) and "Fourth Tour Professional Training" 
(30). If while running the model these high limits are 
exceeded, the model warns the user, and provides him with 
options (explained in detail later) from which to choose. 

e. Low Limit Data 

The user can also change the low limit numbers 
for any assignment in the network. Using the previous 
example of the department head school, the user may wish to 
make sure that at least 110 officers on their third tour and 
15 officers on the fourth tour, are currently assigned to 
department head school . The user should change the low 
limit data for the “Third Tour Professional Training" to 110 
and "Fourth Tour Professional Training" to 15. When the 
model makes the calculations and finds that the number of 
officers in the assignment "Third Tour Professional 
Training" falls below the low limit (110) the model warns 
the user and provides him with options (explained in detail 
later) from which to choose. 

7 . Reinitia lizing the Data 

The user is also provided the opportunity to 
reinitialize some or all of the data types, i.e. nodes, 
arcs, length, hilirait, and lolimit. For example, after 
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running the model for three years and not violating a low 
limit for "Third Tour Professional Training" (110), the user 
may wish to change the low limit to 115 officers, and run 
the model again for three years, to see if this new low 
limit will be violated. Without reinitializing the model's 
data, the model would commence running with three years 
calculations already completed, and the result would be a 
total of six years calculations into the future. Instead, 
the user may desire to reinitialize the nodes data, and any 
other data type of his choosing, and then run the model for 
three years. One word of warning is necessary here. If the 
user chose to change the low limit from 110 to 115 officers, 
and then decided to reinitialize the low limit data, the net 
result would be to destroy the change the user had made to 
the low limit data, because the low limit for “Third Tour 
Professional Training" would also be reset to the value 
found in the initial low limit data file. For that reason, 
the user is provided the opportunity to reinitialize 
separately each of the following data types: the nodes data, 
the arcs data, the length data, the high limit data, and the 
low limit data. 
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Ill . PROCEDURES FOR USING MODEL 



A. THE DISTRIBUTION DISKS 

The model package contains four disks. Two are labeled 
"IBM Compatible”, Distribution Disks I and II, and two are 
labeled “Heath/Zenith 100" Distribution Disks I and II. 
This model was written in two versions, one for use on any 
IBM-PC compatible and one for use on a Heath/Zenith 100 
micro computer. Both versions require MSDOS Version 2.0 or 
the equivalent. Since each requires a different operating 
system, they are not interchangeable between micro computers 
with different operating systems. Color has been used in 
the displays to enhance the prompts, but the program will 
still run using a black and white monitor, with no 
degradation. Distribution Disk I contains all the files 
necessary for the program to run, including the main 
program, plus the six default data files. The following is 
a list of the files contained on Distribution Disk I: 
SWOPATH.COM 
NODES. NOD 
NODEZERO. NOD 
ARCS. ARD 
LENGTH. LED 
HILIMIT.HID 
LOLIMIT.LID 

Note: After operating the program, the user may have 

created one or more additional data files, that will also be 
listed on the directory of the “working copy" of 
Distribution Disk I. 

Distribution Disk II contains the source code listings 
for the model's main program for those users interested in 
performing possible future changes to the program. . These 
listings are also printed in Appendices A through N. This 
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disk also Includes a program called UPDATE.COM that allows 
the user to reenter the assignment data in the NODES. NOD 
default data file. The following is a list of the files 
contained on Distribution Disk II: 

SWOPATH . PAS 

ZENUTILS.PAS (only on Heath/Zenith disks) 

IBMUTILS . PAS (only on IBM Compatible disks) 

LOGO . PAS 
INITDATA . PAS 
SELECTIO . PAS 
CALCULAT . PAS 
TOTALS. PAS 
CHGDATA . PAS 
SCREENS. PAS 
DISPLAYS. PAS 
DATADUMP.PAS 
ANSWERS. PAS 
STORDATA . PAS 

UPDATE.COM (listing not included) 

B. GETTING STARTED 

The user should select the two distribution disks 
labeled for use on his micro computer (Either the "IBM 
Compatible" disks, or the "Heath/Zenith 100" disks.). The 
distribution disks are not copy-protected for the user's 
convenience. The user is reminded that this product is U.S. 
Government property and all appropriate rules for such 
apply. The DISKCOPY command should be used to make exact 
copies ("working copies") of each distribution disk. The 
original distribution disks should be kept separately in a 
safe place. The working copy of Distribution Disk I should 
now be placed into drive A. 
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C. SAMPLE PROGRAM EXECUTION 



The following will be a detailed explanation of how the 
program works, including actual displays (some slightly 
modified, due to space considerations) that the user can 
expect to see, if the user follows the procedures described 
in the text. Entries required to be made by the user are 
indicated within quotation marks. For example, if the user 
is required to press the letter A, it will be indicated in 
the text as "A", if the user is required to press the number 
8 and then press carriage return (enter, or return), this 
will be indicated in the text as "8<CR>“. All character 
entries will be indicated in the text by upper case letters. 
It is not necessary for the user to use upper case letters 
when making entries since the program will recognize either 
upper or lower case responses as correct. 

1 . Selecting Input Data Files 

To start the program, type “SWOPATH(CR) " at the 
prompt: A). The first screen will be the logo including the 
version number of the program, which will automatically 
change to the display depicted in Fig'ure 3.1 below. 



Do you want to change the input data files from those 
1 isted below? 



Data: Data files: 

0. No changes wanted/ f in ished changes. 

1. Number of officers at each assignment: Nodes 

2. Transfer path percentages: Arcs 

3. Assignment tour lengths: Length 

4. High limits: Hilimit 

5. Low limits: Lolimit 

Type your selection [0,1,2,3,4,51; 



Figure 3.1 Input Data File Screen 

This screen provides the user with the option of 
utilizing the default data files listed, or changing to a 
data file of the user's choice. If the user chooses 
something other than 0,1, 2, 3, 4, or 5, the program provides 



34 



the brief message near the bottom of the screen, 'Your 
response Is Incorrect, please try again', and returns to the 
original screen shown In Figure 3.1 above. As an example, 
let's choose to change the data file for the number of 
officers at each assignment by pressing "1". Figure 3.2 is 
the display that now is on the screen. 



Remember, you must choose a data file that you have 
previously saved. Those are listed below. 

NODEZERO 

NODES 

Enter the Input filename 
typed exactly as listed above, 
that you choose to use: 

Type NODES if you want to exit back to menu. 

Figure 3.2 Change Data File Screen 

The two files 'NODEZERO and NODES' are the only 
files, currently on the distribution disk, that contain the 
formatted data indicating the number of officers at each 
assignment. If the user wanted to return to the previous 
menu. Figure 3.1 without making any changes he would follow 
the instruction on the last line of the display in this case 
typing the word NODES. If the user types a filename other 
than one of those listed, the program provides a brief error 
message and returns to the screen in Figure 3.2. If the 
user has earlier created his own assignment data files, they 
would be listed along with the NODEZERO and NODES files. 

If the user had chosen "2" from the screen shown by 
Figure 3.1 the next screen display would be similar to that 
in Figure 3.2, but would Instead list the files containing 
transfer path percentage data. Similar statements may be 
made for choices 3, 4 or 5. 

In this example we will select NODES by entering 
M NODES<CR> M . The program now returns to the screen In 
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Figure 3.1, to provide the user the opportunity to make 
another change in the input data files. After all desired 
changes have been made, typing ”0“ will so indicate to the 
program which will then respond by printing across the 
bottom of the screen, 'Initializing . . . . '. The 

program is now reading each data file into memory storage. 
Each time it reads a data file into memory. It informs the 
user by printing the initializing message. Once it 
completes reading in all five data files, the program 
automatically proceeds to the next display shown in Figure 
3.3. 



Currently the number of accessions each quarter i3 
350 officers 

The new number of accessions each quarter is: 

Press <CR> for no change. 



Figure 3.3 Change Number of Officer Accessions Screen 

2. Initializing the Number of Officer Accessions 

This screen provides the user with the opportunity 
to initialize the number of officer accessions used by the 
program. The default value for officer accessions per 
quarter is 350 officers. The user can either type a new 
number or by just pressing the carriage return ,“ <CR> " , the 
user accepts the the default number of officer accessions 
and the program automatically displays the next screen. 
Figure 3.4. 

3. The Selection Menu 

This screen provides the user with the primary 
options he will require to operate the program. From this 
selection menu the user can display data, change data, 
reinitialize data values or conduct calculations. Note at 
the top of the screen that the program tells the user for 
how many years and quarters the calculations have been 
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completed. No calculations have been performed yet, so the 
indication is 0 years and 0 quarters. So far the only 
operation the program has conducted was to read in the data 
to fill the network with the required values. 



Calculations have been completed for 0 years and 0 quarter 
Choose one of the following selections. 

0. A1 1 - f ini shed . 

1. Review the display selections. 

2. Display an activity v.s. all tours 

3. Display a tour v.s. all activities 

4. Display the transfer paths FROM an assignment 

5. Display the transfer paths TO an assignment 

6. Display the assignments by quarters left 

7. Change data values 

8. Reinitialize data values. 

9. Ready for calculations. 

Please type in the number of your selection 

[0,1,2,3,4,5,6,7,8,91 



Figure 3.4 Selection Menu Screen 

4. Data Displays 

a. Activity v.s. All Tours 

By pressing "2" to display an activity v.s. all 
tours the program first provides the user with a menu (see 
Figure 3.5) from which to choose the activity the user 
wishes to see. 



Which activity are you interested in? 

A. Professional Training 

B. Professional Education 

C. Washington DC 

D. Shore (CONUS) 

E. Afloat Staff 

G. Shore (OUTUS) 

H. Separation 

Type your choice: 



Figure 3.5 Display Activity v.s. Tour Selection Screen 

When selecting Shore (CONUS) by pressing "D“ the 
program indicates the number of years and quarters for which 
calculations have been completed. It indicates that the 
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user chose the activity. Shore (CONUS), and then provides a 
breakdown of the number of officers serving in a Shore 
(CONUS) assignment during their first tour, second tour, 
etc.. (See Figure 3.6) For instance, there are 204 officers 
currently in their fourth tour, serving in an assignment 
that falls under the general activity. Shore (CONUS). The 
program then provides the user with the opportunity to 
display another activity breakout. By answering ' Y ' the 
user would see the screen depicted in Figure 3.5 above, and 
have the opportunity to choose a different "activity v.s. 
tour" breakout. If the user desires to display no other 
activities he types "N". 



For 0 years and 0 quarter(s) calculations. 
For: Shore (CONUS) 

TOURS 



FIRST 


SECOND 


THIRD 


FOURTH 


FIFTH 


SIXTH 


0 


780 


270 


204 


204 


300 


SEVENTH 


EIGHTH 


NINTH 


TENTH 


ELEVENTH 


TWELFTH 


'300 


300 


350 


200 


300 


0 


Do you 


desire to 


see another 


act i v i ty 


breakout? 


(Y/N) 


Figure 3.6 


Activity v. 


s. Tour Breakout Screen 



The user is then returned back to the Selection 
Menu shown in Figure 3.4 above. 

b. Tour v.s. All Activities 

By pressing "3", the program first provides the 
user with a menu (Figure 3.7) in order to choose which tour 
the user wishes to examine. Note that the display prompts 
the user to type the number of his choice and then to press 
the carriage return key <CR>. 

When selecting the Fourth Tour by entering 
“4<CR>", the program again indicates for how many years and 
quarters calculations have been completed. The display also 
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indicates that the user chose the Fourth Tour, and then 
provides a breakdown of the total number of officers who are 



Which tour do you wish to see displayed? 
TOUR 



1 . 


FIRST 


2. 


SECOND 


3. 


THIRD 


4. 


FOURTH 


5. 


FIFTH 


6. 


SIXTH 


7. 


SEVENTH 


8. 


EIGHTH 


9. 


NINTH 


10. 


TENTH 


1 1 . 


ELEVENTH 


12. 


TWELFTH 


TOUR 


: ( 



(type number<CR>) 



Figure 3.7 Display Tour v.s. Activity Selection Screen 

in their Fourth Tour by assignments categorized as 
Professional Training, Professional Education, Washington 
DC, Shore (CONUS), etc.. (see Figure 3.8) For instance. 



For 0 years and 0 quarter(s) calculations. 

For: Fourth Tour 

Activity: Number of officers 



Professional Training : 50 
Professional Education : 200 
Washington DC : 168 
Shore (CONUS) : 204 
Fleet Unit : 480 
Afloat Staff : 96 
Shore (OUTUS) : 24 
Separation : 0 
Total Officers : 1222 



Do you desire to see another tour breakout? (Y/N) 



Figure 3.8 Tour v.s. Activity Screen 
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there are 204 officers currently In their Fourth Tour, 
serving In an assignment that falls under the general 
activity. Shore (CONUS). The program then provides the user 
with the opportunity to display another tour breakout. By 
answering the user would see the screen depicted in 

Figure 3.7 above, and have the opportunity to choose a 
different "tour v.s. activity" breakout. By typing "N" the 
user is returned back to the Selection Menu shown in Figure 
3.4 above. 

c. Transfer Paths From an Assignment 

By pressing “4" to see a display for the 
transfer paths from an assignment the program will provide 



Which assignment do you wish to see 

the transfer paths from? 

TOUR ACTIVITY 



1 . 


FIRST 


A. 


PROFESSIONAL TRNG 


2. 


SECOND 


B. 


PROFESSIONAL EDUC 


3. 


THIRD 


C. 


WASHINGTON DC 


4. 


FOURTH 


D. 


SHORE CONUS 


5. 


FIFTH 


E. 


FLEET UNIT 


6. 


SIXTH 


F. 


AFLOAT STAFF 


7. 


SEVENTH 


G • 


SHORE OUTUS 


8. 


EIGHTH 


H. 


SEPARATION 


9. 


NINTH 






10. 


TENTH 






1 1 . 


ELEVENTH 






12. 


TWELFTH 







TOUR: (type number<CR>> ACTIVITY: (type letter) 



Figure 3.9 Display Transfer Paths FROM Selection Screen 

the user with a menu (see Figure 3.9) to select which 
assignment the user wants to see the transfer path 
percentages FROM. Note that once again the display prompts 
the user to type a number and then press the carriage return 
<CR>. If the user selects either TWELFTH TOUR or the 
SEPARATION activity, the program will briefly warn the user 
that there are no transfer paths FROM either of these two 
options, and then allows the user to change his selection. 



40 



Pressing "3<CR>" and then "F“ to select the THIRD TOUR, 
AFLOAT STAFF assignment. Figure 3.10 will appear on the 
next screen. 



/-TO Fourth Tour Prof Trng 
/ 60% or 10 officers 

/ 

/ TO Fourth Tour Prof Educ 

/ 10% or 2 officers 

Display for / 

0 years and / TO Fourth Tour WashDC 

0 quarters / 10% or 2 officers 

FROM / TO Fourth Tour Shore (CONUS) 

Third Tour Afloat Staff 20% or 3 officers 

\ 

16 officers \ TO Fourth Tour Fleet Unit 

will be transferred. 0% or 0 officers 

\ 

\ TO Fourth Tour Afloat Staff 

\ 0% or 0 officers 

\ 

\ TO Fourth Tour Shore (OUTUS) 

\ 0% or 0 officers 

\ 

\T0 Fourth Tour Separation 
0% or 0 officers 

Do you desire to see another transfer path breakout?< Y/N) 



Figure 3.10 Transfer Path Percentages FROM Screen 

Once again the program indicates for how many 
years and quarters calculations have been completed and 
indicates assignment the user has selected to see the 
transfer path percentages FROM. The display shows how many 
officers will be transferred from the Third Tour Afloat 
Staff assignment and then on the right, indicates where 
those officers will be transferred. In Figure 3.10 the 
display shows that 16 officers will be transferred. This 
means that at the Third Tour Afloat Staff assignment there 
are 16 officers with one quarter left to serve. When the 
program begins calculations these 16 officers will be 
transferred as shown in the figure. Namely, sixty percent, 
or 10 of those 16 officers will be transferred to a Fourth 
Tour Professional Training assignment, ten percent or 2 
officers will be transferred to a Fourth Tour Professional 
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Education assignment, etc.. The Individual numbers may not 
sum up to the total officers transferred due to rounding. 

Once again the program provides the user with 
the opportunity to choose to see another transfer path 
breakout. If the user chooses 'Y', then the screen shown in 
Figure 3.9 will appear and the user may again select an 
assignment. By pressing "N" the program will return to the 
Selection Menu shown in Figure 3.4. 

d. Transfer Paths To an Assignment 

Pressing "5" to display the transfer paths TO an 
assignment. Figure 3.11 shows the screen the user will see. 

On this screen the program provides the user 
with a menu for selecting to which assignment the user wants 
to see the transfer path percentages. Note that once again 
the display prompts the user to type a number and then press 
the carriage return <CR>. If the user selects FIRST TOUR 
the program will briefly warn the user that there are no 



Which assignment do you 



wish to see 
the transfer 



paths to? 



TOUR 


ACTIVITY 


1 . 


FIRST 


A. 


PROFESSIONAL TRNG 


2. 


SECOND 


B. 


PROFESSIONAL EDUC 


3. 


THIRD 


C. 


WASHINGTON DC 


4. 


FOURTH 


D. 


SHORE CONUS 


5. 


FIFTH 


E. 


FLEET UNIT 


6. 


SIXTH 


F. 


AFLOAT STAFF 


7. 


SEVENTH 


G. 


SHORE OUTUS 


8. 


EIGHTH 


H. 


SEPARATION 


9. 


NINTH 






10. 


TENTH 






1 1 . 


ELEVENTH 






12. 


TWELFTH 







TOUR: (type number<CR>) ACTIVITY: (type letter) 



Figure 3.11 Display Transfer Paths TO Selection Screen 

transfer paths TO that option, and then allows the user to 
change his selection. Pressing "6<CR>“ and then “E" to 
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select the SIXTH TOUR, FLEET UNIT assignment, a screen 
showing Figure 3.12 will appear next. 



FROM Fifth Tour Prof Trng 
100% or 5 officers 

FROM Fifth Tour Prof Educ 
60% or 1 officers 



FROM Fifth Tour WashDC 
95% or 8 officers 

FROM Fifth Tour Shore (CONUS) 
95% or 16 officers 

FROM Fifth Tour Fleet Unit 
5% or 2 officers 

FROM Fifth Tour Afloat Staff 
5% or 2 officers 

FROM Fifth Tour Shore (OUTUS) 
90% or 4 officers 



Do you desire to see another 



\ 

\ 

\ 

\ 

\ Display for 

\ 0 years and 

\ 0 quarters 

-\ TO 

> Sixth Tour 
/ Fleet Unit 

/ 

/ 38 officers 

I 

/ 

/ NOTE: Percentages 
/ reflect the % of 

/ officers trfd OUT 

/ OF the FROM 

ass ignment . 

transfer path breakout?( Y/N) 



Figure 3.12 Transfer Path Percentages TO Screen 

Once again the display indicates the number of 
years and quarters for which calculations have been 
completed, and indicates the tour. Sixth Tour Fleet Unit, 
that the user selected to see the transfer path percentages 
TO. This display allows the user to determine where the 
officers being transferred into the assignment he is 
interested in are coming from. The information on the left 
side of this screen is the percent of the total officers in 
their last quarter at the indicated FROM assignment that 
will be transferred to the selected TO assignment. The 
number following the percent figure in each row is the 
actual number of officers to be transferred FROM the 
indicated assignment in each row on the left TO the 
assignment on the right side of the screen. For instance, 
there will be 16 officers transferred from Fifth Tour Shore 
(CONUS) to Sixth Tour Fleet Unit. The 16 officers are 
ninety five percent of all the officers assigned to Fifth 
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Tour Shore (CONUS) with one quarter left. Occasionally 
there will be a percent indicated, yet 0 officers shown to 
be transferred. This occurs when there are no officers with 
one quarter left at the FROM assignment. Also the numbers 
of officers on the left may not sum to the number indicated 
as the total transferred due to rounding. Choosing 'Y' will 
return the user to the display shown in Figure 3.11, to 
select another assignment to which he may want to display 
the transfer path percentages. If the user is finished, he 
would press "N" and thereby return to the Selection Menu of 
Figure 3.4. 

e. Assignment by Quarters Left 

Figure 3.13- shows the screen the user will see 
when pressing “6" to display the assignments by quarters 
left. 



Which assignment do you wish to see? 



TOUR 


ACTIVITY 


1 . 


FIRST 


A. 


PROFESSIONAL TRNG 


2. 


SECOND 


B. 


PROFESSIONAL EDUC 


3. 


THIRD 


C. 


WASHINGTON DC 


4. 


FOURTH 


D. 


SHORE CONUS 


5. 


FIFTH 


E. 


FLEET UNIT 


6. 


SIXTH 


F. 


AFLOAT STAFF 


7. 


SEVENTH 


G. 


SHORE OUTUS 


8. 


EIGHTH 


H. 


SEPARATION 


9. 


NINTH 






10. 


TENTH 






1 1 . 


ELEVENTH 






12. 


TWELFTH 







TOUR: (type number<CR>) ACTIVITY: (type letter) 



Figure 3.13 Display Assignments bv Quarters Left 

Selection Screen 



The program here provides the user with a menu 
to select which assignment from which the user wants to see 
the breakout of officers assigned by quarters left. Again 
the display prompts the user to type a number and then press 
the carriage return <CR>. 
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Pressing "9<CR>" and then “G" to select the 
NINTH TOUR, SHORE OUTUS assignment Figure 3.14 will appear 
on the next screen. 



After 0 year(s) and 0 quarter(s) 
Ninth Tour Shore (OUTUS) 
Tour Length of 12 quarters. 
Officers assigned: 



5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

0 

0 

0 

0 



with 1 qtr left 
with 2 qtrs left 
with 3 qtrs left 
with 4 qtrs left 
with 5 qtrs left 
with 6 qtrs left 
with 7 qtrs left 
with 8 qtrs left 
with 9 qtrs left 
with 10 qtrs left 
with 11 qtrs left 
with 12 qtrs left 
with 13 qtrs left 
with 14 qtrs left 
with 15 qtrs left 
with 16 qtrs left 



The total number of officers assigned is 60 
Do you desire to see another ass ignment? ( Y/N ) 



Figure 3.14 Officers Assigned bv Quarters Left Screen 

Here, the program Indicates the years and 
quarters for which calculations have been completed and 
indicates the assignment selected by the user. Ninth Tour 
Shore (OUTUS). This display also indicates the tour length 
of the assignment. As discussed previously, the maximum 
length of any assignment in the model is 16 quarters. 
Although not all assignments are for 16 quarters, the 
display will always show 16 quarters of information. Note 
that there are 0 officers assigned with 13, 14, 15, and 16 
quarters left. 

The display also indicates the total number of 
officers assigned to the selected assignment. 

As before the program provides an opportunity 
for the use to choose to see another display of officers 
assigned by quarters left. If finished, pressing "N" 
returns the user to the Selection Menu of Figure 3.4. 
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This completes the examples of the different 
types of displays available with the program. If a less 
experienced user desires to review the displays, selection 
number 1 of the Selection Menu of Figure 3.4 will provide 
him with a brief review of each of the available displays. 

5. Changing Data 

In order to change data values, the user must press 
“7“ from the list on the Selection Menu of Figure 3.4. 
Figure 3.15 shows the next screen the user can expect to 
see . 



Which data do you desire to change? 
Input data 

0. No changes/ f in ished changes. 

1. Number of officer accessions. 

2. Transfer path percentages: 

3. Assignment tour lengths: 

4. High limits: 

5. Low limits: 

Type your selection [0,1,2,3,4,51: 



Data file 



Arcs 
Length 
Hil imlt 
Lol i m i t 



Figure 3.15 Data Change Menu Screen 



Here, the program provides the user with the 
opportunity to change all the data in the program with the 
exception of the number of officers presently assigned to 
each billet. In addition to listing the possible categories 
of input data the user might wish to change, the display 
also indicates the data file the program is presently 
employing to establish that data, where applicable. The 
menu in Figure 3.15 allows the user to select the data he 
desires to change. 

a. Changing the Number of Accessions 

Pressing "1“ to select the number of officer 
accessions the screen will show Figure 3.16. 
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Currently the number of accessions each quarter Is 

350 officers. 

The new number of accessions each quarter Is: 

Press <CR> for no change. 



Figure 3.16 Changing Number of Officer Accessions Screen 

This display shows the number of officers 
entering the Surface Warfare Officer Community from all 
sources, each quarter. The program provides the user an 
opportunity to change this number by simply typing the new 
number and pressing the carriage return. If the user does 
not want to change the value then pressing the carriage 
return “ <CR> “keeps the number of officer accessions at 350 
officers. The program displays the new number of officer 
accessions as selected by the user and then returns to the 
change menu shown in Figure 3.15. 



Which assignment do you wish to change the path % from? 
TOUR ACTIVITY 



1 . 


FIRST 


A. 


PROFESSIONAL TRNG 


2. 


SECOND 


B. 


PROFESSIONAL EDUC 


3. 


THIRD 


C. 


WASHINGTON DC 


4. 


FOURTH 


D. 


SHORE CONUS 


5. 


FIFTH 


E. 


FLEET UNIT 


6. 


SIXTH 


F. 


AFLOAT STAFF 


7. 


SEVENTH 


G. 


SHORE OUTUS 


8. 


EIGHTH 


H. 


SEPARATION 


9. 


NINTH 






10. 


TENTH 






1 1 . 


ELEVENTH 






12. 


TWELFTH 







TOUR: (type number<CR>> ACTIVITY: (type letter) 



Figure 3.17 Change Transfer Path Percentages 

Selection Screen 



b. Changing the Transfer Path Percentages 

Pressing "2" to select transfer path percentages 
the screen will show Figure 3.17. 
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The program here provides the user with a menu 
to select from which assignment the user wants to change the 
transfer path percentages. 

Pressing “3<CR>“ and the “E" to select the THIRD 
TOUR FLEET UNIT assignment the screen will show Figure 3.18. 



FROM 

Third Tour Fleet 



Percent Total 
100 % 



Which path % do 



/-TO A:Fourth Tour Prof'Trng 
/ 5% 

/ 

/ TO B:Fourth Tour Prof Educ 

/ 0 % 

/ 

/ TO C:Fourth Tour WashDC 

/ 0 % 

/ 

/ TO DrFourth Tour Shore (CONUS) 

Unit 85% 

\ 

\ TO E:Fourth Tour Fleet Unit 

\ 0 % 

\ 

\ TO F:Fourth Tour Afloat Staff 

\ 0 % 

\ 

\ TO GiFourth Tour Shore (OUTUS) 

\ 0 % 

\ 

\TO H:Fourth Tour Separation 



10 % 

you wish to change?(A-H)or(Q to quit) 



Figure 3.18 Change Transfer Path Percentages Screen 

This display shows the current transfer path 
percentages from the Indicated assignment to each assignment 
in the next tour. Note the program prompt at the bottom of 
the screen. Selecting “A" the cursor will move to the line 
below "TO A: Fourth Tour Prof Trng" just before the 5%. To 
change the transfer percentage, simply type the new value 
and press the carriage return. For example, typing "30<CR>“ 
the display will change in two places. Where before the 
percentage read 5% in normal video, it now reads 30% in 
reverse video. The reverse video feature is to indicate to 
the user that he has changed that particular value. The 
second display change is where the percent total is 
indicated. The number displayed will be 125%, displayed in 
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reverse video to indicate to the user that a change has 
occurred. The reverse video feature will occur whether the 
user changes the percentage or simply types the exact same 
percentage again. After making the above change, the cursor 
has now returned to the bottom of the screen, prompting 
another change. 

If the user now types "Q“ to quit this section 
of the program a warning will be displayed at the bottom of 
the screen to indicate to the user that he cannot leave this 
section of the program, until he forces the percent total to 
equal either zero, or one hundred percent. The user In the 
present case the user is warned that the percent total does 
not equal either zero or one hundred, the current percent 
total (here 125%) is displayed, and he is instructed to 
continue to make changes to the transfer path percentages 
until one of the mentioned totals is achieved. The user is 
then returned to the original prompt and asked which path 
percentage the user desires to change. This time pressing 
“D“ to change the transfer percentage to Fourth Tour Shore 
(CONUS) the cursor has moved to immediately before the 85%. 
Typing "60<CR>“, the percentage should now be highlighted in 
reverse video, and the percent total should now read one 
hundred percent. The cursor also returns to the bottom of 
the screen, to prompt the user for another change. Now that 
the 100 percent total has been achieved, typing "Q" allows 
the user to leave this section by asking him if he desires 
to change another transfer path percentage. Typing "N", the 
program automatically returns to the change menu of Figure 
3. 15. 

c. Changing the Assignment Tour Lengths 

Pressing "3" for assignment tour lengths, the 
screen will show Figure 3.19. 
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Which assignment tour length do you wish to change? 
TOUR ACTIVITY 



1 . 


FIRST 


A. 


PROFESSIONAL TRNG 


2. 


SECOND 


B. 


PROFESSIONAL EDUC 


3. 


THIRD 


C. 


WASHINGTON DC 


4. 


FOURTH 


D. 


SHORE CONUS 


5. 


FIFTH 


E. 


FLEET UNIT 


6. 


SIXTH 


F. 


AFLOAT STAFF 


7. 


SEVENTH 


G. 


SHORE OUTUS 


8. 


EIGHTH 


H. 


SEPARATION 


9. 


NINTH 






10. 


TENTH 






1 1 . 


ELEVENTH 






12. 


TWELFTH 







TOUR: (type number<CR>> ACTIVITY: (type letter) 



Figure 3.19 Change Assignments Tour Length Selection Screen 

Here the program provides the user with a menu 
to select the assignment for which the user wants to change 
the tour length. Figure 3.21 shows the next screen the user 
will see when pressing “3<CR>" and then H E“ to select the 
THIRD TOUR, FLEET UNIT assignment. 



The old Third Tour Fleet Unit length is 8 quarters 
How many quarters long do you want assignment now? 

Figure 3.20 Change Assignment Tour Length Screen 

This display indicates the old tour length of 8 
quarters for the Third Tour Fleet Unit and prompts the user 
to enter the new tour length in quarters. Caution: The user 
must enter a value and then press the carriage return. If 
he only presses the carriage return, without entering a 
value, the program may not operate properly. For example, 
typing “10<CR>“ the program displays the old value and the 
new value, and then automatically returns to the change menu 
of F igure 3.15. 

d. Changing the High Limits 

Figure 3.21 shows the next screen the user will 
see if "4“ is pressed for high limits. 
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Which high limit 


do you 


wish to change? 


TOUR 


ACTIVITY 


l . 


FIRST 


A. 


PROFESSIONAL TRNG 


2. 


SECOND 


B. 


PROFESSIONAL EDUC 


3. 


THIRD 


C. 


WASHINGTON DC 


4 . 


FOURTH 


D. 


SHORE CONUS 


5. 


FIFTH 


E. 


FLEET UNIT 


6. 


SIXTH 


F. 


.AFLOAT STAFF 


7. 


SEVENTH 


G. 


SHORE OUTUS 


8. 


EIGHTH 


H. 


SEPARATION 


9. 


NINTH 






10. 


TENTH 






1 1 . 


ELEVENTH 






12. 


TWELFTH 







TOUR: (type number<CR>> ACTIVITY: (type letter) 
Figure 3.21 Change High Limits Selection Screen 

The program here provides the user with a menu 
to select the assignment for which the user wants to change 
the high limit. Figure 3.22 shows the next screen the user 
will see if pressing "3<CR>" and the "A" to select the THIRD 
TOUR, PROFESSIONAL TRNG assignment. 



The old high limit for Third Tour Prof Trng 

is 9999 officers. 

There currently are 150 assigned. 

How many officers do you want as the high limit now? 

Figure 3.22 Change High Limit Display 

This display Indicates the old high limit for 
the Third Tour Prof Trng, the number of officers currently 
assigned to the Third Tour Prof Trng, and prompts the user 
to enter the new high limit. The user is reminded here that 
the default setting for all high limits in the program is 
9999. Caution: The user must enter a value and then press 

the carriage return. If the user only presses the carriage 
return, without entering a value, the program may not 
operate properly. For example, typing "350<CR>“, the 
program will display the old value and the new value, and 
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then asks the user if he wants to change another high limit. 
In order to prepare for the example in Section 5, another 
high limit choice is made by first typing “Y“ and at the 

High Limits Selection Screen (Figure 3.21), FOURTH TOUR, 

PROFESSIONAL TRNG is selected by typing "4<CR>“ and "A“. At 
the prompt on the High Limit Change Display (Figure 3.22), 

“150<CR>“ is typed. Then to finish with this section, 

typing "N" at the prompt asking if another change is desired 
will automatically return the user to the change menu of 
Figure 3.15. 

e. Changing the Low Limits 

Figure 3.23 shows the next screen the user will 
see if "5" is pressed for low limits. 



Which low limit do you wish to change? 



TOUR 

1. FIRST 

2. SECOND 

3: THIRD 

4 . FOURTH 

5. FIFTH 

6. SIXTH 

7 . SEVENTH 

8. EIGHTH 

9. NINTH 
10. TENTH 

1 1 . ELEVENTH 
1 2 . TWELFTH 



ACTIVITY 

A. PROFESSIONAL TRNG 

B. PROFESSIONAL EDUC 

C. WASHINGTON DC 

D. SHORE CONUS 

E. FLEET UNIT 

F. AFLOAT STAFF 

G. SHORE OUTUS 

H. SEPARATION 



TOUR: (type number<CR>) ACTIVITY: (type letter) 



Figure 3.23 Change Low Limits Selection Screen 

The program provides the user with a menu to 
select the assignment for which the user wants to change the 
low limit. Figure 3.24 shows the next screen the user will 
see when pressing "3<CR>" and then “E“ to select the THIRD 
TOUR, FLEET UNIT assignment. 
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The old low limit for Third Tour Prof Trng 

is 0 officers. 

There currently are 80 assigned. 

How many officers do you want as the low limit now? 

Figure 3.24 Change Low Limit Screen 

This display Indicates the old low limit for the 
Third Tour Fleet Unit, the number of officers currently 
assigned to the Third Tour Fleet Unit, and prompts the user 
to enter the new low limit. The user is reminded here that 
the default setting for all low limits in the program is 0. 
Caution: The user must enter a value and then press the 

carriage return. If the user only presses the carriage 
return, without entering a value, the program may not 
operate properly. For example, typing "0<CR>“ the program 
displays the old value and the new value, and then asks the 
user if he wants to change another low limit. Then to 
finish with this section "N“ is typed at the prompt asking 
if another change is desired. The program automatically 
returns to the change menu of Figure 3. 15. 

6 . Reinitializing the Data 

Pressing "0" indicates that the user is finished 
making changes. The program then automatically returns to 
the Selection Menu of Figure 3.4. 



Which data do you desire to reinitialize? 

Data: Data files: 



0 . 
1 . 
2 . 

3. 

4. 

5. 



None/finished reinitializing data. 

Number of officers at each assignment: Nodes 

Transfer path percentages: Arcs 

Assignment tour lengths: Length 

High limits: Hilimit 

Low limits: Lolimit 



Type your selection 10,1,2,3,4,51: 



Figure 3.25 Reinitialize Data Selection Screen 
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To reinitialize data values, the user may press **8“. 
Figure 3.25 shows the next screen the user will see. 

The program allows the user to reinitialize all data 
used in the program. The display above shows the data and 
the corresponding data file currently being used by the 
program. The user simply types the number (1 through 5) of 
his selection, and the program will initialize that data 
type, using the file listed. The program also sends the 
user a message along the bottom of the screen to let the 
user know that the program is in fact initializing the data 
selected. A word of caution is required here. If the user 
has been operating the program, and has made changes to the 
data, as for example the high limits for two assignments 
have been changed in Section 5.d., then the program will 
destroy all such changes by replacing the changed data with 
the data file listed above when reinitializing the same data 
type (High limits in this case). 

Pressing "2", for example, to reinitialize the 
transfer path percentages, note the message that appears 
along the bottom of the screen, indicating the program is 
initializing the transfer path data using the file Arcs. 
After reinitializing the selected data, the program returns 
the user to the Reinitializing Data Selection Screen (Figure 
3.25) for another selection by the user. When finished, 
pressing "0" will so indicate to the program. The program 
then automatically returns the user to the Selection Menu of 
Figure 3.4. 

7 . Cal cu lat i ons 

Note that this display still indicates that 0 
year(s) and 0 quarter(s) calculations have been completed. 
By pressing "9" the user may select to commence 
calculations. At that point a brief message appears at the 
bottom of the screen instructing the user that if he wants 
to quit and return to the selection menu, he should choose 0 
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years and 0 quarters. The next question the program asks Is 
If the user desires to reinitialize (set to zero) the years 
and quarters count. This will be explained further later in 
Section 7. For now pressing "N“ the program asks how many 
years and quarters the user desires to run the model. As an 
example the user may enter “3<CR>“ for the years and "2<CR>" 
for the quarters. 

The program then commences calculations. It begins 
by taking those officers with l quarter left in each 
assignment and placing them in a temporary transfer file. 
It then subtracts one quarter from the number of quarters 
that all other officers have left in their current 
assignments. This way officers who earlier had 2 quarters 
left, will now have 1 quarter left, those with 3 quarters 
left to 2 quarters left, and so on. This process is carried 
our for each assignment in the network. The program then 
takes the number of officers in these temporary transfer 
files, multiplies them by the respective transfer path 
percentages, and adds the resultant number to the assignment 
they are being transferred to. For instance, if at the 
beginning of calculations there were 10 officers with one 
quarter left, 20 officers with two quarters left, and 30 
with three quarters left, at Third Tour Fleet Unit then the 
10 officers with one quarter left are placed in a temporary 
transfer file, and the 20 officers with two quarters left 
will have only one quarter left, while the 30 officers with 
three quarters left will have only two quarters left. The 
program then takes the transfer path percentages, for 
example thirty percent to Fourth Tour Professional Education 
and seventy percent to Fourth Tour Fleet Unit and multiplies 
the 10 officers being transferred from Third Tour Fleet Unit 
by thirty and seventy percent respectively. The resulting 3 
and 7 officers are added to Fourth Tour Professional 
Education and Fourth Tour Fleet Unit. If, for example, the 
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tour length of Fourth Tour Professional Education is eight 
quarters and the tour length of Fourth Tour Fleet Unit is 
five quarters, the 3 officers will be added to the 
assignment Fourth Tour Professional Education with eight 
quarters left, and the 7 officers will be added to the 
assignment Fourth Tour Fleet Unit with five quarters left. 
One must remember that these 3 and 7 officers will not be 
the only officers added to those assignments. These are 
just the officers transferred from the assignment Third Tour 
Fleet Unit. There are probably several more officers being 
transferred from the other assignments in the Third Tour, to 
the Fourth Tour assignments. The results of these 
calculations are maintained by the program memory in 
temporary files, until all calculations are completed, at 
which time the data is transferred into the assignment data 
variables. If a limit either high or low, is violated, this 
transfer from temporary file to the assignment data 

variables does not take place and a warning is posted to the 
user as explained in the next section. The program 

maintains the assignment data as configured after the last 
successful calculations were completed, 
a. Violating the Limits 

After completing the transfer of all the 
officers to an assignment, the program checks to ensure that 
the high or low limits for that assignment have not been 
violated. If a limit is violated, the program sends the 
user a warning. As an example. Figure 3.26 shows the screen 
the user sees when after conducting calculations for 2 
quarters, the constraint for Fourth Tour Professional 

Training is exceeded. 

Earlier, the user created a high limit of 150 
officers for Fourth Tour Professional Training. This limit 
was exceeded after only two quarters of calculations. The 
program now officers the user three options. 
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After 0 year<s> and 2 quarter(s) 

The constraint for Fourth Tour Prof Trng has been exceeded 
There are 152 officers there now. 

The high limit is 150 

What do you desire to do now? 

0. Abort simulation. Return to^selection menu. 

1. Ignore limits and continue simulation. 

2. Back up one quarter in the simulation. 



Figure 3.26 Constraint Violation Screen 

(1) Aborting the Simulation . The user can abort 
the simulation and return to the selection menu. The 
display of the selection will now indicate that 0 years and 
0 quarters of calculations have been completed. When the 
user chooses to abort the simulation the program 
automatically returns the user to where the user was before 
he started the calculations that resulted in a violation of 
the limits. In this case the user started with 0 years and 
0 quarters of calculations completed and therefore the 
program returned the user to that status. If for example, 
the user had first operated the program for 3 years without 
violating a limit, and then operated the program for another 
4 years and in doing so had violated a limit and chosen to 
abort the simulation, the program would return the user to 
the 3 years of calculations point in the program. 

(2) Ignoring Limits . As another option, the 
user can choose to ignore the limits and continue the 
simulation. If this option is chosen, the program resets 
the limit to the default value (0 for low limits and 9999 
for high limits), warns the user that the limit has been 
reset, and then continues with the calculations. 

(3) Back Up One Quarter . The user may also 
choose to back up one quarter in the simulation. The 
purpose of this option, is to allow the user to go back to 
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the point in the calculations, just before the limit was 
violated, allowing the user to then change some of the 
parameters, and then continue with the calculations. After 
completing calculations for one fewer quarter, the program 
automatically returns the user to the Selection Menu of 
Figure 3.4. 

To continue with the above example, pressing "1“ 
will cause the program to ignore the limit and continue the 
simulation. The program automatically sends the user a 
message that it has reset the high limit of Fourth Tour 
Professional Training to 9999, and that it is continuing 
calculat ions . 

The program will next show the screen presented 
by Figure 3.27. 



After 3 year(s) and 1 quarter(s). 

The constraint for Third Tour Prof Trng has been exceeded. 
There are 360 officers there now. 

The high limit is 350 

What do you desire to do now? 

0. Abort simulation. Return to selection menu. 

1. Ignore limits and continue simulation. 

2. Back up one quarter in the simulation. 



Figure 3.27 Second Constraint Violation Screen 

This is the result of the user having earlier 
created a high limit for Third Tour Professional Training of 
350 officers. This limit is exceeded after 3 years and l 
quarter of calculations. This time pressing "2" to back up 
one quarter in the simulation, the program will commence 
calculations on the data as configured just prior to 
commencing the calculations during which the limit was 
violated. Then the program will do calculations for one 
fewer quarter, i.e. for 3 years and 0 quarters. The 
program sends the user a message to this effect. 
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After completing calculations, the program 
returns the user to the Selection Menu of Figure 3.4. Note 
that the top line of the screen now indicates that 3 years 
and 0 quarters calculations have been completed. The user 
has now the choice to display data in various forms, in 
order to determine why the high limit was exceeded in the 
Third Tour Professional Training. The user also has the 
option to change data, e.g. the transfer path percentages 
that send people to Third Tour Professional Training or 
simply change the high limit for Third Tour Professional 
Training. As an example, pressing “7“ to change data the 
change data menu will now appear on the screen (Figure 
3.15). Pressing "4" to change high limit data, the Change 
High Limits Selection Screen (Figure 3.21) will be 
displayed. Pressing “3<CR>“ to select THIRD TOUR and “A" to 
select PROFESSIONAL TRAINING, the Change High Limit Screen 
(Figure 3.22) is now displayed for Third Tour Professional 
Training. Entering “9999<CR>" to change the high limit from 
350 to 9999and pressing “N“ at the prompt asking if the user 
wants to make another change, the program finally returns to 
the Selection Menu of Figure 3.4. 

b. Resetting Year and Quarter Count 

To continue with another example, pressing "9“ 
to commence calculations, the program will first ask if the 
user desires to reinitialize (set to zero) the years and 
quarters. So far the user has conducted calculations for 3 
years and 0 quarters. If the user wants to maintain the 
year and quarter counters at 3 years and 2 quarters the user 
should answer no, by pressing “N", and at the prompt asking 
for how many years and quarters to run the model, he should 
enter "0<CR>" for 0 years and "2<CR>’' for 2 quarters. The 
model will then perform calculations for 2 quarters and 
return to the Selection Menu of Figure 3.4. Now the top 
line reads that 3 years and 2 quarters calculations have 
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been completed. If the user responds yes, to the question 
*Do you desire to reinitialize (set to zero) yrs & qtrs? 
Y/N' the program will reset the year counter and the quarter 
counter to zero. This will not affect the status of the 
assignment data, that still has 3 years and 0 quarters 
calculations completed. If the user now chooses to conduct 
0 years and 2 quarters calculations, after the program has 
completed the calculations and returns to the selection 
menu, the top 1 ine would read that “0 years and 2 quarters 
calculations had been completed.** Actually, this 
calculation was performed on top of 3 years and 0 quarters 
of previous calculations. 

The user now could look over the data by 
choosing one or more of the several displays available. The 
user could also change some of the data, and continue 
calculations, or reinitialize some of the data and possibly 
start over again other wise the user may press **0“ to 
indicate that he is finished. 

8 . Savina Data to a Disk File 

The program then asks if the user desires to save 
any of the data to a disk file. This option will allow the 
user to choose to save some or all of the data that he has 
been using to a disk file named by the user. For instance, 
possibly the user wants to quit for the time being and 
resume his analysis later. In the above example there is 
assignment data as it exists after 3 years and 2 quarters of 
calculations that the user may wish to save. He has also 
changed high limits in two cases, and may want to save that 
data. Pressing "Y" will indicate that the user wants to 
save data to a disk file. Figure 3.28 is the next screen 
the user will see. 
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This procedure provides you with the opportunity to 
save the data as presently configured in the program 
to a disk file named by you. 



Press any key to continue . . . 

Figure 3.28 Save Data to Disk File Caption Screen 

Pressing any key. Figure 3.29 Is the next screen the 
user will see. 



Which data do you wish to save? 

Data: Data files: 

0. None / f in ished saving data. 

1. Number of officers at each assignment: Nodes 

2. Transfer path percentages: Arcs 

3. Assignment tour lengths: Length 

4. High limits: Hilimit 

5. Low limits: Lolimit 

Type your selection [0,1,2,3,4,51: 

Figure 3.29 Save Data Selection Menu Screen 

The program provides the user with the opportunity 
to save any of the data as currently configured in the 
program. The data files listed are those that are currently 
in use. The data in these files has not been changed. The 
current configuration of the data is stored in the program's 
memory. Pressing "4" to save the high limit data to a disk 
file. Figure 3.30 is the next screen the user will see. 



Enter output filename (maximum of 8 letter) 

UNLESS YOU DESIRE TO OVERWRITE PREVIOUS DATA, DO NOT USE 
HILIMIT 



Figure 3.30 Save Data Filename Screen 

The program prompts the user to enter a filename. 
Caution: The user must enter a filename, at least one letter 
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long and then press the carriage return. Just pressing the 
carriage return may cause the program to operate 
Incorrectly. The following characters may not be used in 
the filename: 






* / \ + " < > 



The following are examples of illegal filenames: 



BAD /ONES 
WRONG. ONE 
TOOOOLONG 



- Illegal character (do not use "/") 

- Illegal character (do not use 

- Too many characters 



The following are examples of legal filenames: 
NEWHIGH HIGHDATA USERHIGH GOODNAME 



The user is warned about using the filename HILIMIT. 
If the user chooses that name, the default data stored in 
the file HILIMIT, will be destroyed permanently. As an 
example, the user may type the filename “HIGHTEST<CR> " . It 
is not necessary to type the filename in uppercase. The 
program, and the operating system accepts either case. The 
program then dumps the currently configured data from 
program memory, to the disk file named HIGHTEST, sends a 
message to the user to let him know that this is happening 
(see bottom of screen), and then returns the user to the 
Save Data Selection Menu (Figure 3.29). the user could also 
save the assignment data by pressing 1 at this point. 

9 . Replacing Default Data Files 

Pressing "0" to indicate finished saving data. 
Figure 3.31 will be the next screen the user will see. 

The program now provides the user with the option to 
replace the default data files, (the files that 
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Now that you have saved that data to your own file, do you 
desire to use it to replace the base data? <Y/N> 

Figure 3.31 First Replace Data Screen 

automatically load in if the user makes no changes to the 
input data files at the first screen) with the currently 
configured data in the program's memory. As the next screen 
warns, this step is a very serious one. It is a one way 

change, and once done, the previous default data is lost 

forever. The user is probably better advised to not replace 
the base data file's data in most instances. He may still 
use the file just created if at the first screen in the 
program when asked whether the user desires to change the 

input data files he answers in the affirmative. However, if 

the for this example, the user answers yes by pressing "Y" 
to the query in Figure 3.31, the program will show Figure 
3.32 on the next screen. 



You have chosen to save the data as it is currently 
calculated by the program, to be the new initialization 

data . 

This is a serious step. 

You will be losing the 
default data established in the 
mode 1 . 

Press any key to continue . . . 

Figure 3.32 Second Replace Data Screen : WARNING 

Pressing any key. Figure 3.33 is the next screen the 
user will see. 

The program here provides the user with a menu to 
choose which data file the user wants to replace 
permanently. The user is again cautioned that this is a 

serious step that cannot be undone. If the user selected 1 
through 5, the program will give the user one more 
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Which data do you desire to change PERMANENTLY? 

Data: Data flies 

0. None/finished replacing data. 

1. Number of officers at each assignment: Nodes 

2. Transfer path percentages: Arcs 

3. Assignment tour lengths: Length 

4. High limits: Hllimit 

5. Low limits: Lolimit 

Type your selection [0,1,2,3,4,51: 



Figure 3.33 Replace Data PERMANENTLY Selection Menu Screen 

opportunity to change his mind, and then replace the data as 
selected by the user. The program then returns to the 
Replace Data PERMANENTLY Selection Menu Screen of Figure 
3.33 to give the user the opportunity to replace some other 
data. Pressing "0“ will cause the program to leave this 
section of the program without making any replacements. 

Current use of the program is now completed and the 
user is shown an ending logo on the screen. 
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IV. MAINTENANCE OF THE MODEL AND FUTURE DEVELOPMENT 



A. MAINTAINING AND UPDATING THE DATABASE 

As stated in Chapter III, there are six data files 
contained on Distribution Disk I. 

NODES. NOD 
NODEZERO. NOD 
ARCS. ARD 
LENGTH. LED 
HILIMIT.HID 
LOLIMIT.LID 

These six files contain the default data the program 
will use to initialize the variables, unless the user 
changes the input data file. Because data relevant for the 
model was not directly available at the writing of this 
report, all data in the default files was contructed 
somewhat artificially, although care was taken to make such 
data reasonable realistic. It is hoped that this data will 
soon be replaced by actual data by the model's first user. 
The assignment data that consists of the number of officers 
at each assignment provided in file "NODES" was 

abstracted/excerpted from an inventory of surface warfare 
officers for 1983, generated by the SWOTOURS model [Ref. 
71. Although the SWOTOURS model does not indicate the 
number of officers in the same format as this model, 
combining different outputs of the SWOTOURS model, and 
crossing years of commissioned service (YCS) with tour 

numbers, enabled the author to fill the model with 

"realistic" data. The default transfer path percentages 
were generated by analyzing data from the SWOTOURS model and 
then estimating the transfer path percentages from each 
assignment in the network. The default assignment tour 

length data was generated by evaluating the surface warfare 
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officer career path depicted In the Unrestricted Line 
Of f icer Career Planning Guidebook [Ref. 1] and equating the 
length of tours described with the networks assignment tour 
lengths. The high and low limit default data files were 
arbitrarily set at 9999 and 0 respectively. 

As discussed previously, the user can decide which file 
the program will use to initialize the variables, by 
choosing a file previously saved. The user can also change 
the number of accessions, the individual values of the 
transfer path percentage variables, the assignment tour 
length variables, and the high and low limit variables. 
After making such changes the user is provided an 
opportunity to save those changes to a file of his own 
choosing. The user is then provided the opportunity to 
replace the default data files with these new data files if 
he so chooses. When actual data becomes available, the 
program Itself, can be used to update the above mentioned 
default data in just that way. 

The only data the user cannot change directly during 
operation of the program, is the number of officers at each 
assignment. The network consists of eight activities by 
twelve tours resulting in ninety six assignments/nodes. 
Each assignment can be between 1 and 16 quarters long, thus 
requiring one thousand five hundred and thirty six data 
entries to fill the network. Since the data files are not 
encrypted for the convenience of the user, each file could 
be edited using any word processing software package. 
Caution: This is NOT recommended. Hidden ed i t i ng/ f ormatt i ng 
commands may be unintentionally inserted into the data 
files, or the user may accidentally violate the format of 
the data, rendering the data file useless. A separate 
program has been included on Distribution Disk II called 
UPDATE.COM to be used exclusively to update the number of 
officers at each assignment if the user wishes to do that. 
This file cannot be used to update any of the other data 
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flies, since It only formats data for use as “NODES" data. 
It Is a somewhat long and tedious process to update the data 
using this UPDATE program, but it is not likely that it will 
be required to be used very often. 

To use the UPDATE program, the user should simply place 
the “working copy" of Distribution Disk II into the drive, 
type “UPDATE<CR>" and follow the prompts. This program will 
create a new file called "NODES. NOD" on the "working copy" 
of Distribution Disk II. In order to use it with the 
program the user must copy the new "NODES. NOD" file to 
Distribution Disk I using whatever procedures his operating 
system requires. One example for accomplishing this task is 
placing the "working copy" of Distribution Disk I in drive 

A, and the "working copy" of Distribution Disk II in drive 

B, and typing “A:<CR>“. Then at the prompt : A>, the user 
should type "COPY B: NODES. NOD A : NODES . NOD" . The data files 
are not “operating system" dependent, and the data files can 
be used interchangeably between the IBM and ZENITH versions 
of the program. 

B. REVIEWING USER DATA FILES 

The user is reminded that the program takes up 
approximately 58 Kbytes of space on Distribution Disk I and 
the data files add another 62 Kbytes, so 120 Kbytes of space 
on the disk are required simply to operate the basic 
program. As the user operates the program again, and again, 
it is expected that data files will be created, to enable 
the user to go back later and evaluate the results or 
recreate the results. The distribution disk is capable of 
holding 360 Kbytes of files, provided the user does not also 
have the operating system on the working copy of the 
distribution disk, in which there is approximately 350 
Kbytes available. Subtracting the 120 Kbytes used by the 
program leaves approximately 240 (or 230) Kbytes for storage 
of the user created (saved) files. The user is cautioned to 
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occasionally use his operating system capabilities to review 
the amount of files storage area available, to preclude 
attempting to save a data file using the program, and 
failing to do so due to insufficient disk space available. 

C. REVISING THE MODEL 

This program was written and compiled, using Turbo 
Pascal Version 3.0. The “.PAS' files will not run using 
earlier versions of Turbo Pascal. This does not impact on 
the user since the “.PAS' files are not used in the normal 
operation of the program. The listing contained in Appendix 
A, contain many comments to aid future programmers in 
determining "how an why' certain procedures perform their 
tasks within the program. The program cannot be expanded 
beyond eight rows and twelve columns without a major 
rewrite, but with some changes to the activities labels, 
this network flow model could be modified to simulate the 
career paths of any officer community in the Navy. User's 
unfamiliar with programming in Pascal and who do not have 
Turbo Pascal Version 3.0 or later to compile their changes, 
are advised against altering any of the programs. The user 
is reminded that simply making changes to the '.PAS' listing 
will have no impact on how the program runs, until the 
program has been recompiled. If the user does attempt 
modifications, please ensure that any changes are fully 
documented by comments, to allow future users to review 
modifications made to the program. The user is reminded 
that the programs on the master distribution disks should 
never be modified. They are shipped with write protect tabs 
installed, and these tabs should never be removed. 

The program has been operationally tested, and several 
undocumented features (a.k.a. bugs) have been corrected, 
doubtless there are more which have not yet been discovered. 
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APPENDIX A 



THE HAIR PR06RAH IS COT A HD II THE DISK FILE *SWJPATH.PAS* 




PRCfiRAA SBOPATH; 

{ This is tha tain prog rat. (for* ill global variablas art dafinad, 
all procaduras ara forward rafarancad. and all includa fllas ara 
callad. Tha rtaaindar of tha parts that taka up tha aodal ara 
subroutlnas, callad procaduras, which tha tain prograt calls as 
ntcassary to run tha nodal. > 



TYPE 



Ona Dit Rail = ARRAY 11..121 OF REAL; 

Two'Din'lnt * ARRAY U..12.'A , ..'H'l OF INTE6ER} 
Two’Dit'Raal = ARRAY tl..i2,'A'..'H»l OF REAL: 
Tra‘Dit~RaalCH * ARRAY C I. . 12, » A» . . *H» , *A» . . »H* 1 
Tra'Dit'RaalNR « ARRAY U..12,’A'..'H\ 1..161 OF 
AStfing"* STRING (801) 

STR 25 * STRIH6 1251: 

Ona'Dia StrNR * ARRAY U..161 OF STR 25; 
Ona'Dil'StrCH = ARRAY l'A'..'H'l OF 8TR 25{ 



OF REAL; 
REAL; 



VAR 



Tour sunt Ona Dit Raali 
Tour; ' ’ f 

TLangtht Ona Dit StrKRi { 

Activity! Ona Dit StrCHj f 

HiLitit, ( 

Loti tit, { 

Tatp Billat Total, ( 

BilTit .Total! Two.Dit.Raalj ( 

Raw Longth. ( 

Old'Lanoth, ( 

lilTat Langthi Two Dit Int: ( 

Trans fir Path! Tra~Dia~RaalCHj ( 
Path.total, * ' { 

Tatp Billat Noda, ( 

Billat Kodai Tra Dit Rail HR; ( 

AccassTons, { 

Trap count, 

HutoarSaconds, 

?: 

h S 

Total, 

KRfiuartars, { 

NRYaars, { 

Ouartar, ( 

QtrCount, { 

YrCount! INTEGER; { 

K, { 

Answar, 

Choi c a, 

Rainit, { 



labal for which tour 1 

labal for langth in quartars) 

labal for activity ) 

tat nutbar of officars by billat noda ) 

tin nutbar of officars by billat noda ) 

tatporary nutbar at aach billat noda ) 

sut of orflcars at aach billat noda ) 

nav langth of tour (to ba changad to ) ) 

old bilist langth (for racord purposas) ) 

actual billat langth } 

parcant of officars to ba transfarrad ) 

parcant totals of transfar paths ) 

tatporary nutbar of officars at aach noda ) 

nutbar of officars at noda by quartars laft ) 

nutbar of offlcar accasslons ) 



tour nutbar frot 1 to 12 ) 
quartars laft frot 1 to 16 ) 

how tany quartars todal is to run } 
valua astablishad by usar ) 
counts frot 1 to 4 ) 

variabla kaaps track of I of itarations ) 
variabla kaaps track of nr of yaars ) 
usad for activity } 
usad for activity ) 



usad in yaars to indicata rainitializa ) 
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W'h 

Firsl, 

Last: CHAR: 

Stop calc A, 

Stop calc"T, 

FI nar totals, 
Violation, 

Tooaaay, 

Toofew, 

Ghana*, 

Initial. 

All finished, 
Finished, 

Ready, 

Rtplac*, 

Review, 

Ok answer, 
Ok'cholce: BOOLEAN} 
Flle.var, 

Output nan*, 
Hodedafa, 

Arcdata, 

Lengdata, 

Hilidata, 

Lolidata: Str_25; 
Cholce.zero. 

Chg var : AString; 
TenporaryiREAL; 
Data.fi l«t TEXT; 



< umr to ckoic* of display 1 

1 Ut*d to input info to Corr*ct choic* > 
( Us*d to Input info to Correct'cbolce ) 

{ Unit warning bool ran } 

( if Units violated ) 

{ hi Unit ) 

{ lo linit ) 
i dtslr* to ckang* 1 
{ Initialize values ) 

< conpletely finished with progran ) 

( finished with particular section } 

< activates replacent of Initial data ) 

< look over display selections ) 

( Used in correct answer procedure } 

{ Used in correct'choice procedure ) 

( > 

< these are all > 

{ used in data file > 

( creation and transfer 1 

i Data file variable nanes > 



(.pall forward references for all procedures ) 



PROCEDURE Logo| FORWARD; 

PROCEDURE Olrllsti FORWARD; 

PROCEDURE Initialize ; FORWARD: 

PROCEDURE Initialize nodes s FORUAROj 
PROCEDURE Initialize' 

PROCEDURE Initialize 
PROCEDURE Initialize 
PROCEDURE initialize'lolinits: FORWARD; 

PROCEDURE Initialize'labels; FORWARD; 

PROCEDURE Selection senu| FORWARD; 

PROCEDURE Review selections : FORWARD; 

PROCEDURE Calculations ; FORWARD} 

PROCEDURE Ask.for .years | FORWARD; 

PROCEDURE All billet totals: FORUARDi 
PROCEDURE Billet totals (VAR T: INTEGER; 

VAR A: CHAR ); FORWARD; 
PROCEDURE High warning; FORWARD; 

PROCEDURE Low. warning; FORWARD; 

PROCEDURE Changes; FORWARD; 

PROCEDURE Change accessions; FORWARD; 

PROCEDURE Change'arcs; FORWARD: 

PROCEDURE Change'length; FORWARD; 

PROCEDURE Changed Units; FORWARD; 

PROCEDURE Change'lolinits; FORWARD; 

PROCEDURE Dchoices; FORWARD; 

PROCEDURE Dchanges; FORWARD: 

PROCEDURE Fron pathsern: FORWARD; 

PROCEDURE To.pathscrn; FORWARD; 

PROCEDURE Dlsp.assign; FORWARD; 



arcs : FORWARD; 
'lengths; FORwArO; 
'hiliaits: FORWARD: 
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PROCEDURE Diip tours| FORWARD} 
PROCEDURE Oisp .paths froa: FORWARD) 
PROCEDURE Disp paths to) FORWARD) 
PROCEDURE Disp.billeFs) FORWARD) 

PROCEDURE No de duap; FORWARD) 
PROCEDURE Arc Juap; FORWARD: 
PROCEDURE Length duap; FORWARD) 
PROCEDURE Hit fa ^aap) FORWARD) 
PROCEDURE Lolia'duap; FORWARD) 



PROCEDURE 

PROCEDURE 

PROCEDURE 



Invalid answer: FORWARD) 

Wrong answer; FORWARD: 

Correct choice (VAR Choice. First. Last: CHAR: 

VAR Ok choice: BOOLEAN)) FORWARD) 
PROCEDURE Correct answer (VAR Answer: CHAR: 

VAR Ok answer: BOOLEAN)) FORWARD) 
PROCEDURE Another change; FORWARD: 

PROCEDURE Strip (VAR File van Sift 2S)[ FORWARD) 

PROCEDURE Blankline (I, It 1NTE8ERI; FORWARD) 

PROCEDURE Save data : FORWARD: 

PROCEDURE Replace.dataj FORWARD) 



(.pa) ( link up all include files ) 

(II zenUTILS ) (I This reads 'ibaUTILS* t) 

(I in 1BN PC version t) 

(II Logo) 

(II lnitdata) 

(II Selectio) 

(II Calc ul at) 

(II Totals) 

(II Chgdata) 

(II Screens) 

(II Displays) 

(II Datadnap) 

(II Answers) 

(II Stordata) 



(.pa) 

( The beginning of the HAIM Prograa ) 

BEGIN 

Accessions : = 350) 

Teapcount := 0; 

ART ears := 0) 

NRQuarters «• 0) 

Ouarter :* 0) 

YRcount : s 0: 

Review : = false) ( to skip saaple selections the first tiae ) 
Initial t- true; ( to initialize the data the first tiae ) 

New Length t T, A ) := Billet Length t T, A )| 

Logo) 

IF Initial THEN 
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8E8IN < initial if ) 

Initiaiiza; 

Qua at tccHfionti 

Initial «■ falsa; ( to pravant prograa Iron rainitializing) 

END; ( initiaiiza if) 

REPEAT { rapaat loop until all finishad ) 

Ail finishad >* falsa; ( to ansura that ua ara not all finishad ) 
Raa3y :■ falsa; { astahlish that va ara not raady for calcui ) 

Changa i* faisa; ( astahlish that initially va do not changa ) 

IF NOT Ali. finishad THEN Saiattion.nanu; 

UNTIL Ali.finishad « trua; 

Sava.data; 

Ciaarscraan; 

SotoRC ( 12, 13); 

Color ( vhita, naganta): 

URITELtt (' Hava a nica day! ’); 

Color ( yallov, blue); 

EHD. ( SBOPATH tain prograa ) 
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APPENDIX EL 



THE FOLLOIIIN6 PROCEDURES ARE CONTAINED IN THE DISK FILE , ZENUTILS.PAS , 

mxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

mrnmmtmmmtstmsmssmmmmmmmttmmmmsmtsts) 

mxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx) 

{ This file contains the follovina procedures 
specifically written to b« Heatn/Zenith 
compatible 

Cl ear Screen 

Color 

SotoRC 

Canter 

Tab 

GetOneChar 

Pause 

Strip 

Blanlclina 



type 

ScraanColor = (Blade. Blue, Red. Magenta, Green. 

Cyan, Yellow, White); 

procedure Cl ear Screen; 

( This procedure simply clears the screen ) 
begin 
ClrScr; 

end; (ClearScreen) 

ixtxxtxxxxxxtxxxxxnxxttxuxxxxtxxxxxxxxxxnxxxxxxxxtxxxxxtxxxxxxxxtxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx) 

procedure Color (Foreground, Background : ScreenColor); 



tx 

XX 

« 

XX 



MISCELLANEOUS UTILITIES 
H/Z-100 Version 



XX 

XX 

XX 

XX 
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(This procedure a«ts th« Screen Colors according to the 
requested colors sent. Colors are: Black, Blue, 6reen 
Cyan, Red, Magenta, Yellow, White ) 

begin 

write(chr(27).V,chr(ord(Foreground)+48), 

cnr(ord(8ackgroundH48))| 



end; (Color) 

mmmmmmmmmmmmmmmtmmmmmmmmmtm) 



procedure 6otoRC(Rov, Colum : integer); 

(This provides direct cursor addressing. There is a built- 
in function GotoTY which asks for YY (or Col-Row) order. ) 

begin 

if Row > 24 then Row :* 24; 
if Coluan > 80 then Coluan := 80; 

6otoXY(Coluan,Row); 

end; (GotoRC) 



mmmmtmmmmmmmmmmmtmmmmmmmmmm) 



procedure Center (Line : integer; Message : AString); 

(This procedure will center the Message in 80 coluans 
on the screen. Must pass aessage ana line it's on) 



var 

Count : integer; 
begin 

if length(Hessage) >79 then 
begin 

Go(oRC(Line,l); 

writeln(Hessage); 

end 

else 

begin 

GotoRCdine, ( (80-Length(Message) ) div 2)); 

write(Hessage); 

end: (begin-else) 

(end if-then-else) 

end; (Center) 

( [mtmmmmmmmmmmmmmmmmmmmmmmmm 
mmmtmmmmmmmmmmmmmmmmmmmtmmm) 



procedure 6et0neChar(var User Answer : char); 

(This procedure gets exactly one character, converts to 
Upper case (if needed) and displays it on screen ) 



74 



begin 

read(Kbd,UserAnswer)| 

UserAnswer i= UpCase(UserAnswer); 

end; (GetOneChar) 

[xxtxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

txxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx) 



procedure Pause; 



{ This routine aerely waits for any key: if want to check 
for Control C for exit, use Paused below ) 



war 

AnyKey : char; 

begin 

writeln; 

6otoRC(23,23); 

writeCPress any key to continue ... ’ 

GetOneChar (AnyKey); 

end; { Pause } 

[XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XXttXXXttXXXXXXXXXXXXXXXXXXXXttXXXXXXXXXXXXXXXXXXXXXXXXXXXtXXXXXXXXXXXXXXXXXX) 



PROCEDURE Strip ; 

{ this procedure strips the filetype fro* a filename ) 

TYPE 

AString = STRING CB03; 

VAR 

A, 

E: ASTRING; 

I» 

Y, 

Z: INTEGER; 

BEGIN 

I := LENGTH (File var); 

y . z j-3. 

DELETE (hie. .var , Y, 4) ; 

END; 

uxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

PROCEDURE Blankline; 

( This procedure blakns out a line given row and coluan nuaber ) 
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BEGIN 



6otoRC (X, Y); 

UNITE 

(» »)j 

GotoRC (X,Y)j 
END; { BUnklint ) 
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APPENDIX C 



THE FOLLOW IH8 PROCEDURES ARE COMTAIMO III THE DISK FILE •IBNUTILS.PAS* 




» St 
IS MISCELLANEOUS UTILITIES St 
SI IBM VERSION St 
St St 



mmmmxxxxxxttxxxtxtxxxxxxxxxxxxxxxxxxtmtxxx) 

{ This fila contains tha following procaduras 
spKifically vrlttan to bn IBM conpatibln 

Cl aar Scraan 

Color 

SotofiC 

Cantor 

Tab 

SatOnaChar 

Paul* 

Strip 

Blaaklina 



const 

HTab > Char * A I; 

Ball t Char * *8j 
Lfaad « Char a Mj 
Ratnrnt Char » *Mj 

{tmtntttixtmtmxutmttntttnttmmtnttittmuttttttmtttttmtt 

xxxtxtmtmxtmxxxtttmxtmxxtntxxtxxtxttxxxxxxxxxxxxmxxxxxxxxxuxxxx) 



procadura ClaarScraani 

{ This procadura sitply claars tha scraan ) 
bagin 
ClrScr 

and) (ClaarScraan) 

[xxxxtttxxxxxxxxxxxtxxtxxtxxuxxxxxxxxxxxuxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

tmttnmmmxmnnmutnutxtnmmmnntmmxmnntttunu) 



procadura Color(Foraground,Background t Intagar >| 

(This procadura sats tha Scraan Colors according to tha 
raquastad colors sant. Colors arat Black.Blua.Sraan 
Cyan, Rad, Hagnnta,Ynllov,Vhitn,6ray, Light Blua. Light Oraan, 
Light Cyan, Light Rad, Yahoo, High Whitt ) 

bagin 



Tnxtbackground(Background)) 
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Teitcolor (foreground); 
end| {Color) 



procedure fiotoRCCRow, CoIum t integer); 

(This provides direct cursor addressing. Thors is a built- 
it function 6otoIY vhicb asks for IY tor Col-Rov) ordsr. ) 

bsfit 

if Rov > 24 then Row != 24; 
if Coluaa > 90 then CoIum :* 80; 
fe>toXY(Coluno,Rov)| 
end; (SotoRC) 

{tttmtmmmtmtmtmntmtnntttttmttmtmtmtttnmtmtttt 

tmmtmmmmmtimmttttmmmmtmmmmtimmmmm) 



procedure Centerfline t integer; Message i AString); 

(This procedure will center the Message in 80 coIums 
on the screen. Must pass uessage and line it's on) 



var 

Count t integer; 
begin 

if Length (Message) >79 then 
begin 

GotoRC(line,l); 

uriteln(Hessage); 

end 

else 

begin 

6otoRC(Line l ((82-Length(Nessage)) div 2)); 
vrite( Message) ; 
end; (begin-else) 

(end l f-then-else) 
end; (Center) 

{nmmtt n t mtttt t u mt ti t imttttm ttttmtmttttnutnnmimtm 

tmxmumtmmnntmxtmuntnmttnmmtttttntttmtmmttn) 



procedure Tab(NuuberSpaces:integer); 

( This procedure toves the cursor over the appropriate 
lumber of spaces requested ) 

var 



Count t integer; 
begin 
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for Count i« I to NutbarSpacas do 

bania 

urltat* •) 

and) (bagin) 



(end (or) 
and) (bagin) 



ttmmmtntnmmntmmtmmmtumttnttmmtmmntttmtt) 



procadura OatOnaChar (var UsarAnsvar i char); 



(This procadura gats exactly ona character, converts ta 
Uppar caaa (if naadad) and displays it on screen > 



begia . 

read(Kbd, User Answer); 

User Answer i* UpCase(UaerAaswer)) 
and; (SetOneChar) 



( xxmtxtxtmxtmtttxtxmxxxxtttxxttxtxmttttttttttttmtmmtumtm 
xxxttxtxtxxtxtxxtxtxxtxxxnxxxxtxtxttxtxxtmtxxxxxtxxtnxxxtxxxxxxxxxmtxxx) 



procadura Pauaa; 

( This routina naraly waits (or any key) if want to chKt 
for Control C for exit, usa PawseQ kalou ) 



var 

AayKay i char) 

begin 

vri tain) 

Tab(23)i 

VriteCPress any key to continua ... ’)) 

QatOnaChar(AnyKay)) 

and) ( Pauaa ) 

ixtxmxxxxtxxxmxnxxtxxxxxmxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 



PROCEDURE Strip ) 

( This procadura resoves tha filatypa fro* a filanana > 
TYPE 

AString = STRING CG01) 

VAR 

A, 

Ei ASTRIN8) 

?: 

h INTEGER; 

BEGIN 

I s® LEN6TH (Fila var)) 

1 l» 1-3} 
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KLETE <Fil*.var,Y t 4)j 
END) 



tunmxnmtumntmmtmmxtnmmtmtnmuntxmtmunmt) 



PROCEDURE Bluklin»{ 

{ TMt proctdur* blanks out m ontir* lino. Hunt pot* row and colunn ) 

BE6IH 

totoRC (I, Y)| 

WRITE 

(» »)| 
SotoRCd, Y)j 

ERDj ( Blank! in* ) 
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APPENDIX D 



THE FOLLOUIN8 PROCEDURES ARE CONTAINED IN THE DISK FILE 'L060.PA8* 

(mmmmmmmmmmmmmmtmmmmmmmmmmm 

xxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx) 

{ This filt contains the procedure 
Logo 



PROCEDURE Logo; 

( This procedure calls up th« initial screen logo.) 

BEGIN 

Clear Screen; 

Color (white, blue); 

Cl ear-Screen; 

Color (white, sagenta); 

Center < 10, 'llel cose to SUOPATH'): 

Center (12, 'The Surface Warfare Officer'); 

Center (14.' Career Path Model’); 

Center (Id, 'Version I. O'); ( Be sure to change version nusber ) 

Center (20, '27 September 1985' ); 

Color (white, blue); ( and date if sodifications are sade ) 

CotoRC (23. 1); 

DELAY (1500); 

END; (Logo) 
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APPENDIX E 



THE F0U.0N1N8 PROCEDURES ARE CONTAINED IN THE DISK FILE •INITDATA.PAB* 



< This file contains the following procedures 

Initialize 
Initialize nodes 
Initialize' arcs 
Initialize lengths 
Initialize'labels 
Initialize~hiliaits 
Initialize'lolinits 
DirList 



PROCEDURE Initializei 

( This procedure provides the displays and nechanics to call up 
the data initialization procedures 1 



Ok: BOOLEAN: 

I f Y : INTEGER; 

Default : 3tr_23; 

BEGIN 

Finished :» false) 

IF Initial THEN 
BEGIN 

Nodedata := 'Nodes’ | 

Arcdata := 'Arcs'; 

Lengdata := ’Length': 

Hilidata :* 'Hilinit'j 
Lolidata := 'Lolinit'; 

REPEAT ( until finished 1 
Chg var := 

'Do'you want to change the input data files fron those listed below?'; 
Choice.: ero : =*No changes wanted/finished changes.'; 

Dchangis; 

IF Choice = 'O' THEN Finished :* true 

ELSE 

BE6IN 

Clearscreen: 

GotoRC (5, i); 

URITELN (' Renenber, you nust choose a data file that you have '); 
URITELN C previously saved. Those are listed below.'); 
BR1TELN; 

Color (red, white ); 

Dirlist; 

Color (white, blue); 

URITELN: NRITeLN; 

GotoRC (11, IS); 

URITELN C Enter the input filenane*); 
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Color (blue, white); 

GotoRC (13, 15)i 

URITELN (* typed exactly as listed above,'); 
Color (white, bio*)) 

GotoRC US, IS); 

HR1TELN (' that you choose to oset ’); 
REPEAT ( Ok true ) 



IT Choice > M> THEN Default t> ’Nodes'; 

IP Choice » * 2* THEN Oefault >> 'Arcs'; 

IF Choice > '3' THEN Dofault t« 'Length'; 

IF Choice » '4' THEN Dofault t« 'Hllfslt*; 

IF Choice - *5* THEN Default != *Lotiuit*| 



GotoRC (20,13)1 

KITE ('Type », Default,* 

Blanklino (IS. 40); 

6otoRC (15, 40); 

READ (File var); 



if you vant to exit back to nenu.*); 



IF Choice • *1* THEN File var i« CONCAT (File var, '.nod'); 
IF Choice » *2* THEN File"var :« CONCAT (File'var '.ard'l 
IF Choice * '3* THEN File'var t* COHCAT (File’var.'.led'); 
IF Choice » '4' THEN File'var :« CONCAT (File'var ’.hid') 
IF Choice * '5* THEN File'var >> CONCAT <File'var,*.lod'); 



ASSIGN (Data file, File_var);(Thit procedure determines If there ) 
(II-) RESET TData file)'(ll+)|(is tuch a file ai selected by user.) 
Ok :> UOresult »*0); 

Strip (File.var); 



IF NOT Ok THEN 
BC6IM 

Blankliae (24, 1); 

Color (white, red); 

KITE (’ Cannot find file ’, File var,* please try apain.*); 
DELAY (1500); 

Color (white, blue); 
llankline (24, 1); 

END; ( Ok 10 result if ) 

UNTIL Ok « True; 



IF Choice > *1* THEN Nodedata File var; 
IF Choice » *2* THEN Arcdata i» File'var 
IF Choice * *3* THEN Lengdata i« File'var 
IF Choice * *4* THEN Hilidata i« File'var; 
IF Choice « *5* THEN Lolidata :* File>ar; 

END; ( if choice » 0 ) 



UNTIL Finished ■ true; 

Initial Ixe.labelsj 

Initialize nodes; 

Initialize^arcsi 

Initialize'lengths; 

Initialize'hiliaits; 

Initialize'loliaits; 

Final totals :* true; 

All billet totals; 
Blankline T24.1); 

END; (if Initial ) 

IF NOT Initial THEN 
BE61M 
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REPEAT { Until finish* true ) 

Chg vir >■ 'Which data d« yon daair* to reinitialize?'; 
Choice zero :■ 'None/finisn* reinitializing data. 
DchMfH) 

IT ®T Ot.choice THEM Initializ*} 



IF Cholct > '0' TNEN Finish* i« true; 

IF Choice > M» THEN 
BENIN 

Initial izo nodes; 

Arcdata i» CONCAT (Arcdata, ».ard*)i 
lengdata i= CONCAT (Lengdata, M*’); 
Hi Ifdata := CONCAT (Hi I ’data '.hid') 
Lolidata := CONCAT (Lolidata, * . lod* )| 
END; (If choice i ) 



IF Choice « ’2» THEN 
BESIK 

Initialize arcs; 

Nodedata 1 = CONCAT (Nododata, *. nod' ) ; 
lengdata i» CONCAT (Lenodata, *. led* ) ; 
Hilidata s- CONCAT CHilidata, * .hid' >| 
Lolidata :* CONCAT (Lolidata, Mod')| 
END; (If choice 2 ) 



IF Choice = *3» THEN 
BESIK 

Initialize lengths; 

Nodedata «s CONCAT (Nod*ata,'. nod'); 
Arc data «» CONCAT (Arcdata, '.ard»); 
Hilidata i> CONCAT (Hilidata, '.hid'); 
Lolidata i = CONCAT (Lolidata,'. 1*'); 
END; (If choice 3 ) 



IF Choice « '4' THEN 
BE6IN 

Initialize hilinits; 

Nodedata :» CONCAT (Nod*ata,*.nod')| 
Arcdata := CONCAT (Arcdata.'.ard*); 
lengdata := CONCAT (lengdata, ’.led'); 
Lolidata := CONCAT (lolidata, M*'); 
END; (If choice 4 ) 

IF Choice * *5* THEN 
BESIK 

Initialize lolinits; 

Nodedata i= CONCAT (Nodedata, • .nod* ) ; 
Arcdata CONCAT (Arcdata.'.ard’ )] 
Lengdata >> CONCAT (Lengdata, '.led'); 
Hilidata i* CONCAT (Hilidata, '.hid'); 
END; ( if choice S ) 

UNTIL Finished * true; 



Final totals i a true; 
All.billet totals; 
Clearscreen; 



END; ( if NOT initial ) 
END; ( Initialize procedure) 



imtmmttmmnmtmtnttmmtttntnmntttttmtttmtttumttt 

tmmmmrnmmmmmttmimmmmmmmmmmmmmi) 
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t.p«> 



PROCEDURE Iftltializa.nodas; 

{ Il»i« procedure raids assignment data fro* 
i data file on th* disk ) 



ream 

Blanklin* (23, 10) ; 

GotoRC (23. l)t 

WRITE (’ Initializing th* nunhtr of officers at nodtt 
M ,'utin« th* filat Rodadata); 
Rodadata t« COSCAT (No3*d*t*, , .nod , )j 
ASSIGN (Data fila,Nodadata)| 

RESET (Data.Tila); 

WILE SOT E0F(Data flla) DO 
DEOIM 

READ (Data fila, T ); 



i 

t 



IF NOT E0F(Data fila) THEN 
BEGIN 

READ (Data fila, Skip)| 

READ (Data'fila, A ); 

READ (Data'fila, Skip); 

READ (Data'fila, L ); 

READ (Data'fila, Skip): 

REA DIN (Data fila, Billet nod* ( T, A , l )); 
END; ( if not and of fila ) 

END; ( and vHile not and of fila ) 

CLOSE (Data.fila); 

END; ( Initialize nodes ) 



mutmttxxtmtmtmxmxxtnmxttttttmtxxxtttxxmxxwtmxttxtxxxx 

xtxttxtmmxxxxnxmxitxxmxxxxtxxxmxxxtxxxxxnxxxxxxxxtxxxxxxxxxxxxxxx) 

(.pa) 

PROCEDURE Initializa.Arcs; 

( Tbit procedure raads transfar path percentages froa 
a data fila on the disk ) 

VAR 



T, 

L: INTE6ER; 

A, 

X: CHAR: 

Data.fila: TEXT; 
BEGIN 



Blankline (23, 10); 

GotoRC (23. I): 

IIRITE C Initializing the transfar path parcantaaas 
’Vusinp the fila: ’, Arcdata); 

Skip :« » *: 

Arcdata :« CONCAT (Arcdata, \ard'); 

ASSIGN (Data fila, Arcdata); 

RESET (Data Tile); 



i 



i 
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NHILE NOT EOHData f!U> N 
BEGIN 

READ (Data MU, T) | 



IF NOT EOF(Data fiU) THEN 
BEGIN 



REM (Data fiU r Skip)) 

READ (Data'file, A)i 
READ (Data'file, Skip)) 

READ (Data'file. K)j 

READLN (Dafa file, Transfer Path I 

END; ( end If not end of Til* ) 



T, 



A, K 1)| 



END) ( end while not end of file ) 
CLOSE (Data.file)) 

END | { Initialize arcs > 



{xxntxxxttxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxtxxxxxxxxxxxxxxxx 

xutxttxtxxtixxtxxxxxxxttxxxxxxmxxxxutxxxxxxxxtxxxxxxxxttxxxxxutxxxxxmx) 



(.pa) 

PROCEDURE Initialize. lengths) 

( This procedure reads the assignment tour length data 
froa a data file on the disk > 

VAR 



Ti INTEGER) 

At CHAR; 

Data.filet TEXT) 
BEGIN 



Blankline (23. 101) 

GotoRC (23, 1); 

KITE (* Initializing assignnent tour lengths using the filet *, Lengdata); 
lengdata := CONCAT (Lengdata, Med'); 

ASSIGN (Data file, Lengdata)) 

RESET (Data.Tlle); 

BHILE NOT E0F(Data file) DO 
BEGIN 

READ (Data.file, T ); 

IF NOT EOF (Data file) THEN 
BEGIN 

READ (Data file, Skip)) 

READ (Data file. A )j 

READLN (Data file, Billet length ( T, A )); 

END) (end if not end of Tile ) 

END) ( end while not end of file ) 

CLOSE (Data.file)) 

END) ( initialize lengths ) 



ixxxxtxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxtxtxxxtxxxxxxtxxxtxxxtxxxxxxxxxxmx 
txxxxxxxxxxxxxxnxxxxxxxxxxxxxxnxxtxxxxxxxtxxxxx XXXXXXXXXXXXXtXXXXXXXXXXXXXX) 

(.pa) 
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PROCEDURE InitinlUe.labeli) 

( This procedures establishes the display labels for 
twin, activities, and quarters left ) 

BE8IK 



:« ’First Twir 
i* ’Second Tour '; 
i* ’Third Tour ’i 
i« 'Fourth Tour ') 
t» ’Fifth Tour »| 

«• 'Sixth Tour ’j 
i= ’Seventh Tour ’; 

:« ’Eighth Tour ’; 

:« ’Ninth Tour »: 

i» ’Tenth Tour ’; 

t» ’Eleventh Tour ’j 

t» ’Tvelfth Tour ’; 

[ »A» ] " ■ - 

[ ’ I* 1 
C ’C’ ] 

I » D» 1 
( »E’ ] 

[ ’F» 1 
[ ’ 6 ’ 1 
t »H’ 1 

1 1 i» 

2 1 i» ' with 

3 1 1 s ’ with 

4 1 : » * with 

5 1 i- ’ with 

6 1 i* > vith 

7 1 s* » vith 

1 ’ vith 



Tour (II 
Tour C21 
Tour [31 
Tour [4] 
Tour ESI 
Tour CO 
Tour C7I 
Tour C8) 
Tour C91 
Tour (101 
Tour CllI 
Tour C12] 
Activity 
Activity 
Activity 
Activity 
Activity 
Activity 
Activity 
Activity 
TUngth C 
TUngth C 
TUngth C 
TUngth [ 
TUngth C 
TUngth C 
TUngth [ 
TUngth ( 
TLength C 
TUngth ( 
TUngth [ 
TUngth C 
TUngth C 
TUngth C 
TLength ( 
TLength ( 



END) C Initialize labels ) 



’Prof Trng ’{ 

’Prof Educ ’) 
’UashDC »t 
•Shore (CCNUS) >) 
•Fleet Unit ’) 
•Afloat Staff »t 
•Shore (OUTUS) »; 
•Separation ’) 
vith 1 qtr left’) 

* • • i 



2 gtrs left 

3 qtr 6 left’) 

4 gtrs left’ 

5 qtrs left’} 

6 qtrs left’; 

7 qtrs left’; 

8 qtrs left’; 



9 ] i» ’ vith 9 qtrs left’) 

10 1 i» ’ vith 10 qtrs left’; 

11 1 := ’ vith 11 qtrs left’; 

12 ] i* • vith 12 qtrs left’ 

13 1 i* • vith 13 qtrs left’) 

14 1 i» • vith 14 qtrs left’; 

15 ] is • vith 15 qtrs left’; 

16 1 i* • vith 16 qtrs left’ 



ittmttmttttmmmnMtttttmttttnntttttttttmttttttttntttttttnt 

C.pal 



PROCEDURE Initializejiilinits; 

C This procedure reads high Unit data fron a data file on the disk 1 
VAR 

Ti INTE6ER; 

Ai CHAR; 

Datajile: TEXT; 

BEGIN 

Blankline (23. 10); 

6otoRC (23, 1); 

URITE (’ initializing the high Units using the filet ’, Hilidata) ; 
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Hll i data !• CONCAT (Hilid4ta,\hld , )| 
ASBI6N (Data fila, Kilidata)| 

RESET (Data.Tlla); 

MULE NOT EOHData fila) DO 
BE8IN 

READ (Data. HU, T )| 

IF NOT E0F(Data flU) THEN 
BE6IN 

READ (Data fila, Skip)} 

READ (Data'fila, A >; 

READ (Data'fila, Skip)* 

READLN (Dafa fila, HaLiait I T, A ))| 
END; ( tad iT not and of fil* If ) 

END; ( and ohila not EOF loop ) 

CLOSE (Oata.fiU); 



END; ( Hiliait procadura ) 

{jrotrammrommmtmmrottmmmmmmmummmmm 

ttumtntnmnxtmttntnmtittmuntnnntmmttuttxtnmttntt) 



(.pa) 

PROCEDURE Initializa.loliiits; 

( This procadura roads loo liait data froa a disk fila ) 

VAR 

T* INTE6ER; 

At CHAR; 

Data.fi iat TEH; 

BE6IN 

Blank l i na (23. 10); 

6otoRC (23. 1); 

KITE (' Initializing Lov Liiits using tha fila: Lolidata); 

Lolidata i« CONCAT (Lolidata, Mod*); 

ASSIGN (Data fila, Lolidata); 

RESET (Data.Tila); 

WHILE NOT EW (Data fila) DO 
BEGIN 

READ (Data.fila, T ); 

IF NOT EOF (Data fila) THEN 
BEGIN 

READ (Data fila, Skip); 

READ (Data fila, A ); 

READ (Data'fila. Skip); 

READLN (Data fila, Lollait I T, A )); 

END; ( and i7 not and of fila ) 

END; { and vhila not and of fila ) 

CLOSE (Data.fila); 

END; { Loliiit procadura ) 



umtntmmttmttmtttttutmtttmttntttttmtntttmtttttttttttttt 

mmmmmmttttmstmmmmmmmmtmmmmmmmtm) 
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t.pa) 



PROCEDURE lirListf 

This is • single progran to list out the directory of the 
current (logged) drive in accordance with flletype chosen. 
MODIFIED BfRBA } 



typo 

Charl2arr ■ array ( 1..12 1 of Char; 

String^ ■ strlngC 20 1| 

RegRec ■ 
record 

AI, BX, CX, DI, BP, SI, Dl, DS, ES, Flags > Intagari 
tfld| 



var 



RT 

Mask 

Mans 

I, T, Error, 1 



t RegRec { 

i array t 1..43 1 of Bykot 
i Charl2arr| 
i String20| 

: Intagari 



begin ( sain body of progras Dlrlist I 



Fi llCfiar (DTA.SizaOf (DTA). 0>t 
FUlChar (Hast, SlzeOf (Mask), 0)j 



{ Initialize tba DTA buffer ) 
{ Initialize the sask 1 



FillChar (ManR.SizeOf <Ka*R>.0}| < Initialize the file naaa > 

Rags.AI i* SlAOOi ( Function used to sat the DTA 1 

Regs.DS :« Seg(DTA); ( store the paranatar segnent in DS } 

Rags. DX i=> Ofs(DTA); { * 1 offset in DI } 



RSDos(Rags); 
Error t* 0| 



{ Sat DTA location > 



IT Choice > M* 

IF Choice • »2» 

IF Choice * »3» THEM Mask i« •????????. lad'; 

IF Choice 3 »4» THEM Mask i« •????????. hid*; 

IF Choice 3 »5» THEN Mask i« •????????. lod'} 

( Use global search ) 

Rags.AI t» $4t00| 

Regs.DS i* Sag (Mask) | 

Rags.DX i= 0fs(Hask)| 

Rags.CX i* 22| 

HS6os(Regs)| 

Error i» Rags.AI and IFF| 

1 i 3 1; 



THENRask i» »????????. nod»; 
THEN Mask i « '????????. ard'j 



{ Sat first director 
{ Point to the file 



( Store the option ) 

{ Execute HSDos call > 

{ Sat Error return ) 

{ initialize * 1* to the first eleoent 



if (Error 3 0) then 



repeat 

NanRil) I s Chr(NesISeg(DTA)t0fs(DTA)+29+Il)| 

I i* I ♦ li 

until not (NanRil-il in (' '..'*•]) or <I>20){ 

NasRCOI i« Chr(I-l)| ( set string length because assigning ) 

{ by elenent does not set length > 

IF (Error 3 0) THEN 
BEGIN 

I t 3 LENGTH (Na*R)| 

Y j 3 X-4: 

DELETE (NaaR,Y,4); 

HRITELN(NasR); 
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E»( 

while (Error ■ 0) do begin 
Error i» 0} 

Reg*. A! i» MfOO; { Function weed to get the Hit ) 

( director; entry ) 

Reg*. Cl t* 22| ( Set the file option } 

HSlfot( Ren* >| ( Cell HSDo* > 

Error i* Regi.AX end tFF| ( get the Error return > 

! i* l| 

repent 

KuRIll i- Chr(Heo(Seg(DTA)iOf*(DTA)+W+I))| 

unli/notHlUnRil-n in C» »..»'»! ) or (I > 20)j 

NufKOI >> Chr(!-l)| 

IF (Error > 0) THEN 
BEBIN 

I t* LENSTH (NmR)| 

Y i» I-4j 

DELETE (lunR.Y|4)| 

URITELNOUbR); 

EHD; ( error if) 

END) < while do loop ) 

tnd| ( of procedure Dir List ) 
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APPENDIX F 



THE FOLLQUING PROCEDURES ARE CONTAINED IN THE DISK FILE *SELECTIO.PAS* 




( This file contains the following procedures 

Selection nenu 
Review.selection 



) 

PROCEDURE Selection.nenu; 

( This procedure provides the selection nenu display and 
choice evaluation nechanics ) 

VAR 



Choice! CHAR] 

Ok .choice! BOOLEAN} 

IE6IN 



REPEAT ( until choice is correct > 

Clear Screeat 
IK1TELN: 

URITELN (’ Calculations have been coapleted (or ’,YrCount,’ years and 
Quarter,’ quarter (s).’ )| 

SotoRC (6. 1)| 

MRITELM (* 

OotoRC (8. 1); 

VR1TELN <* 0. 

URITELN (> 1. 

UR1TELN (’ 2. 

URITELN (> 3. 

URITELN (• 4. 

URITELN (> S. 

URITELN (> 6. 

URITELN (’ 7. 

URITELN (’ 8. 

URITELN (’ 9. 

6otoRC (19, 5) | 

WRITE (’Please type in the nunber of your selection 10, 1,2,3, 4,5, S,7,B,93i ' ) | 
READ (Kbd. Choice)} (read Input into var selection! 

Firsts® ’O’; Last!" ’9’i Ok choice !" true; ( inputs for correct choice ) 
Correct choice (Choice, * -*■ ~ t f ' # - - - 

UNTIL OE.choice = true; 



Choose one of the following selections.’); 

All finished.’)! 

Reviev the display selections.’); 

Display an activity v.s. all tours’); 

Display a tour v.s. all activities’); 

Display the transfer paths FRON an assignment’ ); 
Display the transfer paths TO an assignnent’); 
Display the assignnents by quarters left’); 
Change data values.’); 

Reinitialize data values.’); 

Ready for calculations.’); 



rsF, Last, Ok.cho!ce);( procedure. 



> 



IF Choice « ’0’ THEN All finished i> true; 
IF Choice " ’1’ TIEN Review selections; 

IF Choice * ’2* THEN Disp assign; 

IF Choice = ’3’ THEN Displtoursj! 

IF Choice * ’4’ THEN Dispjaths iron; 

IF Choice = ’3’ THEN Dispnaths'to; 

IF Choice * ’6’ THEN DispliilleEs; 

IF Choice " ’7’ THEN Changes; 



IF Choice " »8» THEN 
BEGIN 

Initial i" false; 
Initialize; 
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DIO | { if choice > 8 ) 

IF Choic# > ’9’ THEM Ask_f©r_ye*rs; 
DID | (Selection Jfenu) 



tttnttnttittmtttutttmttmmnnntnttttxmtmmtmttttttxtttm) 

(.pa) 

PROCEDURE Reviev.selections; 

( This procedures contains the saaple displays ) 

BE61N 



Cl ear Screen; 

Cantar (04, »* Activity v.s. all tours •*); 

Center (06, ’Displays the nuabar of officers’); 

Cantar (07, ’at a spacific assignaant for all tours.’); 

8otoRC (9.10); 

URITELN (’For axaapla th* display vill look likei'); 

URITELN; 

URITELN (' ProfEduc’); 

URITELN; 

URITELN (’ TOURS ’); 

URITELN (’ First SkomI Third ... ’); 

URITELN! 

URITELN! ’ 400 32S 643’); 

Color ( black, whit*); 

Cantar (18,’ Selection nuabar 2’); 

Color ( whit*, blue); 

SotoRC (23, 1); 

Pausa; 



ClaarScraan; 
Cantar (04, »• 



Tour v.s. all activitias *’); 

Cantar (06j'Displays th* nuabar of officers’); 
Cantar (07, ’at a specific tour for all assignaents. 
SotoRC (9, 10); 

URlTELNCFor axaapla tha display vill look like:'); 
URITELN; 

IRlTELNi’ TOUR’); 

URITELN(’ ACTIVITIES’); 

UR1TEUK’ First’); 

URITELNC Prof Educ 400 •); 

URITELN(’ Pro Trng 342 ’); 

URITELN(* Hash DC 981 •) 

Color ( black, whit*); 

Cantar (20,' selection nuabar 3'); 

Color ( white, blue); 

SotoRC (23, 1); 

Pause; 



’)f 



ClaarScraan; 

Cantar (04, ’’ Transfer paths FROM an assignaant *’); 

Cantar (06, ’Displays all of tha transfer path percentages’); 

Cantar (07, ’and tha nuabar of officers transferred, froa a spacific assignaant.’); 
SotoRC (I0!l0); 

URITELN (’For axaapla tha display vill look Iiket’); 

URITELN* ’ ’ 

URITELl’ (» to 3rd tour Pro ad’) ; 

URITELN (» / 311 or 5 officers’); 

URITELN (’ / ’); 

URITELN (’ 2nd tour Pro ad to 3rd tour Pro trng ’); 

URITELN (’ 9 officers \ 141 or 2 officers’); 
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NITON (' transferred \»)| 

NITON (» to 3 rd to or HatbK ')} 

NITON (' III or 2 officers')} 

Color ( black. white)} 

Center (21,' Selection author 4* )| 

Color ( white, blue)} 

SotoRC (23, l!| 

Pmh| 

Clear Screen! 

Center (04,'* Transfer paths TO an assignaent *')} 

Contor (04, ’bisplays the author of officers transferred’)! 
Cantor (07,' INTO an assignaent fret thoso assignaent s iaOi 
Contor (09,'tho previous tour. ')} 

OotoRC (10,10)1 

0RITELN ('Tor exaaple tho display will look llkei')} 
NITONi 

— sfl.. FR0M 2wJ tMjr Pro ^ _ v 
31Z or 3 off icon \ 



NITON' ( 
NITON ( 
NITON ( 
NITON ( 
NITEIN ( 
NITON ( 
NITON ( 
NITON ( 



\ 

fRON 2nd Tour Pro trng— -\ 
14Z or 2 officors > 

/ 

FROff 2nd Tour Nash DC — / 
HZ or 2 officors 



TO 

3rd Tour Shoro (CONUS) 

1 officors 
transforrod 



Color ( black, vbito); 

Contor (21.’ selection nutbor 3’)j 
Color ( vbito, blue)} 

BotoRC (23, t)| 

Pause} 

CloarScroont 

Contor (04, * ■ Assignaeats by quarters loft *')} 

Contor (06, ’Displays tho nutter of officors at a specific ’)} 

Contor (07, • assignaent by hov aany quarters they have loft there')} 
SotoftC (10. 10); 

NITELN ('For oxaaplo tho display will look liket')} 

NITELN} 

NITELN (’ Officers assignodi >)| 

NITEIN (")i 

NITELN (' 43 with 1 qtr left'); 

NITELN (» 8 with 2 qtrs left'); 

NITELN (' 9 vith 3 qtrs loft’) 

NITEIN (”)| 

NITELN (") 

NITELN (>’): 

Color ( black white)} 

Contor (21.' selection nuaber 6'); 

Color (white, blue)] 

SotoRC (23, I)} 

Pause} 

END; ( roviev ) 



')} 

•)} 

’) 

') 

•> 

•>} 
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APPENDIX G 



THE FOLLOWING PROCEDURES ARE CONTAINED IN THE DISK FILE •CALCULAT.PAS* 

imimmmmmmmimtmmmmimmmmmmmmmttm*) 



( This file contains the following procedures 

Aslcjor years 
Calculations 

} 



PROCEDURE Ask.for.years; 



Years wanted, 

Qtrs.wanted: INTEGER; 

BEGIN 

REPEAT { until NRYears answer is an integer } 

REPEAT { until NRQuarters answer is an integer ) 

Blankline (23, 1); 

WRITE (' Choose 0 years & 0 quarters to quit.’); 

DELAY (2000): 

Blankline (23, 1); 

REPEAT ( until correct answer ) 

Blankline (24, 1); 

WRITE (’ Do you desire to reinitialize’,”, 

’(set to zero) yrs It qtrs? (Y/N) ’); 

READ (Kbd, Answer); 

Correct answer (Answer, Ok answer); 

UNTIL OE.answer = true; " 

IF Answer in t'Y’.’y’l THEN 
BE61N 

NRQuarters := 0; 

YRCount : = 0; 

Quarter : s 0; 

Tetp Count := 0; 

END; (reset yrs and qtrs to zero ) 

Blankline (24, 1); 

WRITE (’How *any years: <CR>and quarters: <CR>do you want to run the »odel?’) 
GotoRC (24, 16); 

<*I-) READ (Years wanted) <$I+>: 

0k_answer : s (I0RESULT = 0); (TURBO PASCAL function to check input type ) 

IF NOT 0k_answer THEN Invalid.answer; 

UNTIL 0k_answer s true; 

GotoRC (24, 34); 

($1-) READ (Qtrs wanted) ($I+); 

0k_answer := (I0RESULT = 0); (TURBO PASCAL function to check input type ) 
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IF (Qtrs.wanted < 0) OR (Qtrs_wanted > 3) THEN Qk.answer : a false; 
IF NOT Ok.answer THEN Inval i d.answer ; 

UNTIL Ok_answer = true; 

NRBuarters : a Qtrs.wanted + (Years_wanted t 4); 

IF (Qtrs wanted ♦ (Years wanted t 4) = 0) THEN 
BEGIN 



Color ( white, red): 

Blankline (24, 1); 

WRITE ('You have chosen 0 yrs l 0 qtrs. Returning to selection ■enu.'); 
DELAY (2000); 

Color ( white, blue); 

Blankline (24, 1); 

EXIT : ( Exit fro» ask for years procedure ) 

END; ( if NRquarters = 0 } 

Calculations; 

END; (AskJorjears) 



(.pa) 

mmmmmmmmmmmmmmsmmmmmmmmmmtm) 



PROCEDURE Calculations; 



Te»p, 

Teiporary: REAL; 

TT, 

LL, 

L: INTEGER; 

AA: CHAR; 

Data.file: TEXT: 

Transfers: TwoJie.Real; 

BE6IN 

Tootany: a false; 

Blankline (24, 1); 

WRITE (’ Beginning calculations. ’); 

QtrCount : = 0; ( count of years that aodel is running for ) 

FOR TT := 12 D0UNT0 1 DO 
BEGIN 

FOR AA : a 'A' TO 'H' DO 
BEGIN 

FOR LL := 1 TO 16 DO 
BEGIN 

Te»p billet node ITT, AA, LL) := Billet node ITT, AA, LL); 

END; ( LL loop > 

END; ( AA loop ) 

END; ( TT loop } 

REPEAT 

QtrCount :• QtrCount * l; 

FOR T:= 12 DOUNTO 2 DO 
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BEGIN (T Loop) 



FOR As* »A» TO »H» DO 

BEGIN (A loop - aatheaatical calculations} 



L:= 1; {Length of billet nodes in quarters) 

REPEAT 

Te«p Billet node C T, A, L 1 :* Teap Billet node [ T, A. L+l); 

L s*'L ♦ Is" 

UNTIL L = 16 ; 

Transfers [ T-l, A 1 s a 

(Teap Billet Node ( T-l, »A' , 1 1 * Transfer Path (T-l. 'A*, A)) ♦ 

(Teap'Billet'Node t T-l 'B» lit Transfer 'Path IT-lI'B'jAl) ♦ 

(Teap'Billet'Node t T-l, »C» , 1 1 t Transfer'Path IT-1 »C',A1) ♦ 

(Te»p Billet'Node I T-l, »D» , 1 1 t Transfer'Path (T-1,'D',A1) + 

(Teap'Billet'Node I T-l, 'E» , 1 1 I Transfer'Path IT-1, »E’, A]) + 

(Teap'Billet'Node l T-l 'fill Transfer'Path IT-1, ’F’jAl) ♦ 
(Teap Billet'Node I T-l, 'S' , 1 ) I Transfer'Path IT-1, »6»,A))j 



r , * Teap Billet Node I T, A, Billet Length I T, A 
Teap.Billet.Node IT, A, Billet. Length I T, A 33:= 

Transfers IT-1, A1 ♦ Teaporary; 

Final totals s* false: 

BilleE.totals (T,A); 



ii; 



IF Teap billet total I T, A ) > Hiliait I T, A 3 THEN 
BE6IN ' 

Violation s* true; 

High.warning; 

IF Stop.calc.T THEN EXIT; 

END; (if high warning) 

IF Teap billet total I T, A 3 < Loliait I T, A 3 THEN 
BEGIN 

Violation s* true; 

Lov.varning; 

IF Stop.calc.T THEN EXIT; 

END; I if low warning ) 

END; { A Loop ) 

END; (T Loop and aatheaatical calculations) 



UNTIL (QtrCount * NRQuarters) OR Tooaany; 

IF NOT Violation THEN 
BE6IN 

TeapCount := TeapCount + QtrCount; 
YrCount :* TRUNC (TeapCount/4); 



IF ((YrCount t 4) > Teapcount) THEN YrCount :* YrCount - 1; 
Quarter := TeapCount - (YrCount t 4); 



FOR TT := 12 DOUNTO 1 DO 
BEGIN 

FOR AA := >A» TO »H' DO 
BEGIN 

FOR LL := 1 TO 16 DO 
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Billat nod* ITT, AA, LL] i« T»ap BllUt.nod* tTT, AA, LL); 
END) til loop I 

END; ( AA loop ) 

END} { TT loop } 

Final totals :* tru*| 

All Jull«t .totals; 

END; { violations if } 

END; (calculations) 
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APPENDIX H 



the rounnw procedures are contained in the disk pile •totals.pas* 

(immmmjmnmjmumtmmmmmimwmutinmnmmo 



( This fils contains the fol loving procedures 



All hi list totals 
BilTst totals 



High.varning 

Lov.varning 



) 



PROCEDURE All_billet_totals| 

{ This procedure provides ths aechanics for totalling 
all of ths rsal billst nodes > 

VAt 



K: CHAR} 



BEGIN 

IP Pinal totals THEN 
BEGIN ‘ 

TOR !«■ 12 DOUNTO 1 DO 
BEGIN { Activity Loop) 



POR K:«»A» TO 'H* DO 
BEGIN 

Billst Total t X. K 1 
Billst nods I X 
Billst ‘nods t X 
Billst "nods ( X 
Billet 'nods [ X 
Billst'node I X 
Billst "nods I X 
Billst'node ( X 
Billst "nods I X 



END} ( K loop billst total ) 
END} ( I loop billst total ) 
END} ( if all. total is trus > 

END} (all.billst.totals ) 



* Billst nods I X, K, 1 1 ♦ 

K, 2 1 I Billst nods ( X, K, 3 1 ♦ 

K 4 1 s Billst "nods I X K 5 1 ♦ 

K, 6 1 ♦ Billst'node C X, K, 7 1 ♦ 

K, 8 1 ♦ Billst "nods I X. K. 9 1 + 

K 10 1 s Bills? nods ( X, K, 11 1 * 

K, 12 3 o Billst "nods I X K 13 1 ♦ 

K, 14 1 ♦ Billst "nods t X, K, 13 1 ♦ 

K 16 1} 



tttttmrntmmttmtmtmtmunmtttmtttttttumumttttmmtt) 



f.pa) 

PROCEDURE Billst .totals} 

( This procsdurs providss ths aschanics for both all 
tsaporary billst.totals and individual totals of ths billst nodss 1 

VAR 
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Ki CMAItf 
BE8IN 

IF Final totals THEM 
BEGIN ' 



FOR It> 12 DOWTO 1 DO 
BE8IM { Activity Loop) 



FOR K«»»A» TO *H» DO 
BEfilN 

Billet Total ( X. K 1 
“Billet nodo C I 
Billot nodo ( X 
Billot nodo [ I 
Billot 'nod* [ X 
Billotlnodo ( X 
Billot .nodo ( X 
Billot'nodo I X 



» Billot nodo t X, K, l 1 ♦ 

K, 2 1 ? Billot nodo I I, K, 3 1 ♦ 

K, 4 1 ♦ Billot nodo [ X, K, S ) ♦ 

K 6 1 ♦ Billot'nodo [ I K, 7 1 ♦ 

It, 8 1 + Billot'nodo C X, K. 9 3 -o 

K 10 1 ♦ Billot nodo ( X, K, II 1 + 

K, 12 1 o Billot'nodo I X, K, 13 J ♦ 

K, 14 1 ♦ Billot nodo t X K, 15 1 ♦ 



Billot nodo ( I K 16 1; 

END) { l loop billot total } 

END) { I lool billot total 1 

END C if all. total it trao 1 

ELSE 

BEGIN 

Toap.Bil lot. Total [ T, A 1 i« Toap billot.nodo t T. A, 1 1 + 

loop billot nodo [ T, A, 3 1 ♦ Toap billot nodo I T, A, 3 1 

Toap'billot'nodo t T, A, 4 1 ♦ Toap'bil lot 'nodo t T, A, 5 1 

loop ‘billot'nodo t T A 6 1 ♦ Toap'bil lot'nodo ( T A 7 ) 

Toap'bil lot ‘nodo I T A 8 1 ♦ Toap'bil lot ‘nodo l T A 9 ’ 



Toap'bil lot'nodo C T, A, 
Toap'bil lot 'nodo 1 T, A, 
Toap'bil lot'nodo 1 T A 
To^'bil lot'nodo 1 T A 16 1) 
END) (olio T 



10 1 ♦ Toap billot nodo [ t, Ji, 11 1 ♦ 
12 1 + Toap'billot'nodo I T, A, 13 1 ♦ 
14 1 o Toap'billot'nodo C T, A, 15 1 ♦ 



EKD) (totals 1 

itnt mtmtmxm tmtmtmtmtmttmtmttmmtttttmnttttxtmt 

txmmnmtttmmmtttttnttmmtttmttttnttttttnnnttttttttttttt} 



t.pa) 

PROCEDURE High.varningi 

( This procoduro providos tho displays and aochanics for 
displaying tho nigh warning aossago and post varning 
choico display > 

VAR 



Finish high, 

Ok activity! BOOLEAN) 

Tottoapcount, 

Totyrcount, 

Totqtrcounl, 

Totquartor, 

Be Mint, 

TT, 

LL, 

L: INTEGER: 

Toap : REAL; 

AA, 
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Ki CHAR; 

Datajllei TEXT} 

K61M 



Totteapcount :* Tempcount ♦ OtrCount; 

TotYrCount i- TRUNC (TotT*apcooAt/4) i 

IF ((TotYrCount * 4) > Totteapcount ) DEM TotYrCount i» TotYrCount-1; 

TotQuarter i« Tot Tempcount ■ (TotYrCowt * 4); 



REPEAT 

Clearscreen; 

Color ( whit*, rod): 

GotoRC (2. 101) 

IIRITELM (‘After ', TotYrcount,’ year(s) and ’.Tottoarter,’ quarter(s), *)| 
GotoRC (4, 10)| 

URITELM (‘The constraint for ‘Jour t T ],* ’.Activity 1 A ], 

* has been exceeded. ’); 

6otoRC (6. 10); 

URITELM (’There are ',R0tMD (Teop billet total 1 T, A ]),' officers there now.’) 
GotoRC (8, I0)i 

URITELM (‘The high liait is *, ROUND (Kiliait [ T, A )) f * ’); 

Color ( white, blue); 

GotoRC (10, lit 

UR1TEUI (' mat do you desire to do now?’); 

URITELM (*•); 

URITELM (’ 0. Abort simulation. Return to selection aenu.’); 

URITELM (' 1. Ignore liaits and continue simulation.’); 

URITELM (* 2. Back up one quarter in the simulation.*); 

REPEAT (until answer corrKt) 

GotoRC (10, 34)t 

READ (kbd, Choice ); (read ASSIGNMENT letter) 

First :« ’O’; Last «« ’2‘; 0k choice «» true; 

CorrKt choice ( Choice, First, Last, 0k choice); 

0k activity t- 0k choice; 

UNTIL Ok.activity 3 true; 



IF Choice 3 ’0’ THEM 
BEGIN 

FOR TT := 12 D0UNT0 1 DO 
BEGIN 



FOR AA :* 'A' TO ’H’ DO 
BEGIN 



FOR LL := 1 TO 16 DO 
BEGIN 

Teap billet node ITT, AA, LLT t* Billet node ITT, AA, LL); 
Temp "billet "total C TT, AA 1 s> Billet total ( TT, AA ); 
END; ( LL loop ) 

END; ( AA loop ) 

END; ( TT loop ) 



Stop.calc.T i= true; 

Tooaany := true; 

Violation : 3 false; 

END; ( if choice is zero / abort ) 



IF Choice • ’1’ THEN 
BEGIN 

GotoRC (16, I); 

UNITE (’ Setting *, Tour 1 T ), Activity 1 A ),’ high liait to 9tt9,‘); 
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QokoRC (18, l)| 

KITE (’ and continuing calculations!’)! 

Hllinit C T, A 1 i- WS| 

Violation i* fa)s*| 

Stop calc T : a fals«| 

EU(~( if’cboic* was l) 

IF Cbolc* > *2' THEM 
8E6IM 

KRfiuarUrs t« Btr Count - 1} 

FOR TT t> 12 00WT0 1 DO 
BEB1N 



FOR AA i> 'A* TO »H» DO 
BESIK 

FOR LL t« 1 TO IS DO 
IE61R 

T*ap bill*t nod* t TT, AA, LL 1 i» BilUt nod* l TT. AA, LL 1| 
T**p~bill»t 'total ( TT, AA 1 «« BilUt total ( TT, AA 1 
EKD{ ( LL loop ) 

EM| ( AA loop ) 

ENDj ( TT loop > 

IF NROuarUrs > 0 THEN 
BESIK 

Color ( whit*, rtd); 

11 anti in* (24, 1)| 

WRITE ('On* Ihi quart *r is 0 y*ars and 0 quarters n*w calculations.' )| 
DELAY (2000)1 
Blantlin* (24, i)| 

BRITE (' Returning to s*l»ctlon n*nu.')| 

DELAY (2000) | 

Color ( whit*, blu*)| 

Blantlin* (24, 1)| 

Stop calc T t* tru*j 
EOT) 

ELSE 

BE6IN 

SotoRC (IS, 1)| 

URITELK (' Aft*r conpUting calculations for on* l»ss quart*r')| 

UNITE (' th* nod*l will r*turn you to th* s*l*ction t«nu.')| 

DELAY (2000) | 

Violation t* fals*| 

Stop calc T i= tru*{ 

Calculations! 

EHD| ( If NROuarUrs ■ 0) 

EX0| ( If choice was 2 > 

Finish Jtigh t 8 tru*| 

UNTIL Finish .high ■ tru*j 

EKD| ( High warning ) 



tssmmtmnmmnsnimmmtntmsmmtmnsmssmttmmmi} 



(.pa) 

PROCEDURE Lovvarning; 
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{ This procedure provides the displays and sec basics for 
displaying the low warning and post varainp 

choice display 1 



Finis* lov, 

Ok actfvityi BOOLEAN; 

Tof teapcount , 

Totyrcount. 

Tot qtr count, 

Tot quarter, 
kount, 

TT, 

LL 

L> INTEGER; 

Trap : REAL; 

AA, 

h CHAR} 

Data.Mei TEXT* 

BEGIN 

Tot teapcount i* Teapcount + CtrCount; 

TotYrCount i* TRUNC (TotTeapcount/4); 

IF ((TotYrCount t 4) > Totteapcount ) TIEN TotYr Count s= TotYrCount-1; 

TotOuarter i= TotTeapcount - (TotYrCouat t 4)| 

REPEAT 
Clear screen; 

Color ( white, red)! 

GotoRC (2. lOJj 

UR1TELN (’After ’.TotYreount,' year(s) and ’.TotOuarter,' quarter(s), '); 
GotoRC (4, 10)i 

BRITELN (’The constraint for »,Tour I T ],» '.Activity I A 1, 

' has bm violated.'); 

GotoRC (6, 10); 

BRITELN ('There are '.ROUND (Teap billet total ! T, A )),' officers there now.'); 
GotoRC (8. 10); 

BRITELN ('The lov liait is ', ROUND (Loliait [ T, A 3), ' '); 

Color ( white, blue); 

GotoRC (10, l)j 

BRITELN (' Bhat do you desire to do now?'); 

BRITELN ("); 

BRITELN (' 0. Abort siaulation. Return to selection aenu. ’); 

BRITELN (' 1. Ignore Halts and continue siaulation.’); 

BRITELN (’ 2. Back up one quarter in the siaulation.'); 

REPEAT (until answer correct) 

GotoRC (10, 34); 

READ (kbd. Choice ); (read ASSIGNMENT letter) 

First := ’O’; Last i= '2’s 0k choice := true; 

Correct choice ( Choice, First, Last, 0k choice); 

0k activity s* 0k choice; 

UNTIL 0k .activity = true; 

IF Choice * *0* THEN 
BEGIN 

FDR TT :> 12 DOHNTO 1 DO 
BEGIN 

FOR AA i« 'A' TO 'H' DO 
BEGIN 

FOR LL I s 1 TO IS DO 
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Kan 

T»ap billot no do ITT. AA, LL1 i> Billot nodo ITT. AA, LL1; 

Tonp ‘billot total I TT, AA 1 i« 111 tat Total I TT, AA 1| 

EKD{ ( LL loop > 

EM} ( AA loop > 

END} { TT loop ) 

Stop cole T :■ truo; 

Tootov i«‘truo; 

Violation t« f allot 

E»| (if choico is mo t abort ) 

IF Choico > »1» THEM 
K81I 

HotoRC (IS, 1)} 

KITE (* Sotting », Toot t T ), Activity I A 1,* lov lioit to 0, »)| 
SotoRC (18, 1)} 

KITE (' and continuing calculations!’ )| 

Lollsit ( T, A 1 t* 0} 

Violation i» falsoj 
Stop calc T t* film 
EM; ( if’choico vas 1) 

IF Choico * *2’ THEM 
BE61N 

KBuartors t« QtrCount - 1} 

FOR TT :* 12 DOMTO 1 DO 
BE6IM 

FOR AA «» »A» TO 'H' DO 
BE8IM 



FOR LL t» 1 TO 18 DO 
BE8IM 

Trap billot nodo ( TT. AA. LL 1 != Billot nodo I TT, AA, LL 1} 
Tonpbll lot ‘total ( Tt, AA 1 t- Billot total I TT, AA 1 
EM; ( LL loop > 

EM; ( AA loop 1 

END} ( TT loop > 



IF NRQuartors * 0 THEM 
BE61N 

Color ( wht to, rodlt 
Blanklino (24, 1); 

KITE COno loss quartor is 0 yoars and 0 quartors now calculations.') 
DELAY <2000)1 
Blanklino (24, 1)| 

KITE (' Roturning to solKtion oonu.'); 

DELAY (2000); 

Color ( uhlto, bluo); 

Blanklino (24, 1); 

Stop calc T t* truo; 

EM ' 



ELSE 

BEGIN 

6otoRC (16, l)i 

KITELN (' Af tor conploting calculations for ono loss quartor'); 
KITE (' tho nodol vill roturn you to tho solKtion oonu.'); 
DELAY (2000); 

Violation : = falso; 

Stop calc T := truo; 

Calculations; 
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END) { If KOurtsrs > 0) 
BU| ( if choUs ms 2 ) 
Finishjov i* trust 
UTIL Fiaish.lov ■ trust 
END} { Lou warning ) 
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appendix l 



THE F0LL0NIN6 PROCEDURES ARE CONTAINED IN THE DISK FILE 'CH6DATA.PAS* 

(xxxxxtttuxxxxxxtxxxxxxxxxxxxxxxxtxuxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxnxxxxxxxxxxxxxxxxxxtxxmxxxxxxxtxtxxxxxxxxxxxxxxxxxxxxxxxxtxxxxxxxxxxxxxx) 

{ This file contains tha following procedural 

Changes 

Change.accessions 
Change'arcs 
Change^ ength 
Change niliaits 
Change'lolimits 



PROCEDURE Changes; 

{ This procedure provides the display and response evaluation 
for changing data ) 

BEGIN 



Finished : 3 false; 

IF NOT (POS ('.’, Nodedata) 3 0) THEN Strip (Nodedata); 

IF NOT (POS (’.', Arcdata) 3 0) THEN Strip (Arcdata); 

IF NOT (POS ('.’,Lengdata) 3 0) THEN Strip (Lengdata); 

IF NOT (POS (’.', Hilidata) 3 0) THEN Strip (Hilidata); 

IF NOT (POS (’.’.Lolidata) 3 0) THEN Strip (Lolidata) 



REPEAT (until 

ClearScreen; 

NRITELN; 

URITELN (' 
URITELN (' 
NRITELN (' 
NRITELN (' 

GotoRC (8, 
NRITELN (' 
NRITELN (' 
NRITELN (’ 
NRITELN (' 
NRITELN (’ 
NRITELN (’ 
NRITELNjNRITELN; 



finished true } 



Dj 



Clhich data do you desire to change?'); 
Input data 



0. No changes/finished changes. ’); 

1. Nuaber of officer accessions.'); 

2. Transfer path percentages: 

3. Assignment tour lengths! 

4. High liaits: 

5. Low limits; 



Data file '); 



Arcdata ); 
Lengdata); 
Hilidata ); 
Lolidata ); 



REPEAT ( until choice correct ) 

GotoRC (16,1); 

WRITE (' Type your selection 10,1,2,3,4,51: '); 

READ (Kbd. Choice); (read input into var selection) 

First : 3 'O’; Last s= '5'; uk_choice := true; (inputs for correct choice 
Correct Choice (Choice, First, 'Last, 0k choice); ( procedure. 

UNTIL 0E_choice 3 true; 



IF NOT 0k choice THEN 
IF Choice' 3 '0' THEN 
IF Choice 3 •!' THEN 
IF Choice 3 '2' THEN 
IF Choice 3 '3' THEN 
IF Choice 3 '4' THEN 
IF Choice 3 '5' THEN 



Changes; 

Finished : 3 true; 

Change.accessions; 

Change'arcs; 

Change^length; 

Change'hi limits; 

Change'loiiaits; 



) 
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UNTIL Finished - true] 
END) ( Changes > 



tmmmmmmmttmmmiwmmmmmmmmimmmmw 

(.pa) 



PROCEDURE Change.arcs; 

{ This procedure provides the display and aechanics 
to change transfer path percentages } 



CONST 

Haxpercent = 100; 
VAR 



Ok selection. 

&:■ 

Ok total, 

Ok "tour, 

Qk.activity, 

Finished eng, 
Finished'path: BOOLEAN; 
ll : CHAR; 

Path total, 

P : REAL; 

R* 

Tolal : INTE6ER; 

BESIK 



Ok .pet := false; 

Ok tour := false; 

Ok'activity := false; 

Ok'total : = true; 

Quit := false; 

Finished .path false; 

Finished.chg := false; 

REPEAT (until finished changes) 

REPEAT { until selection ok ) 

Ok.selection s s true; 

Chg.var := 'Which assignment do you wish to change the path X fro»?’; 

Cl ear screen; 

Dchoices; 

Clearscreen; 

IF (T = 12) THEN 
BEGIN 

Ok selection := false; 

Color ( white, red); 

Blankline (24,1); 

WRITE C There are no transfer paths fron Twelfth Tour assignaents. ’); 
DELAY (2000); 

Color ( white, blue); 

Blankline (24,1): 

END; { if tour 12 is chosen) 
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IF (A in t'HVh’l) THEM 
BEGIN 



Ok selection :« fait*) 

Color ( whit*. red); 

Blank line (24,1); 

VRITE (' Th«r« are no transfer paths fro* Separation assignments.'); 
DELAY (2000); 

Color ( white, blue); 

Blankline (24,1): 

EM); { if tour 12 is chosen) 



UNTIL Ok.selection * true; 



Path.total i» 0.0; 

FOR Ki*'A» TO »H» DO 
BE6IN 

Path total i‘ Path total ♦ Transfer path I T, A, K 1; 
END;"( path total)' 



Fron pathscrn; 

SotoRC (10,5): 

VRITELNC FR0H»); 

GotoRC (11,2); 

URITELN( Tour I T ), Activity I 
R I s 1; 

RR := 2; 



A 1); 



FOR ZZ : = »A» TO »H' DO 
BEGIN 

GotoRC ( R, 40): 

URITELN CTO »,ZZ,'i ', Tour I T+l 1, Activity l ZZ 1); 
GotoRC (RR, 42); 

VRITELNC', (Transfer pathIT,A,ZZmOO):4:0,'X'); 

R : * R e 3; 

RR := RR ♦ 3; 

END; 

GotoRC (16,2); 

WRITE ('Percent Total'); 

GotoRC (17,1); 

WRITE (' '.(Path totaU100):4:0,» Z»); 

Path total i* 0.0; 



REPEAT ( until Ok.total true ) 

REPEAT ( until quit with current path breakout) 



REPEAT (until ok choice ) 

6otoRC (24, 1); * 

VRITE ('Which path Z do you wish to change?(A-H)or(B to quit) 
GotoRC (24, 55); 

READ (Kbd. K): 

K := UPCA&E (K) ; 



•) 



IF K in ['A','B»,»C',»D»,'E','F','G','H','Q») THEN 0k choice :* true 

else 

BE6IN 

Ok.choice :* false; 

Invalid answer; 

END; ( If K correct choice ) 



UNTIL Ok.choice = true; 
Ok.choice : s false; 

IF K = 'O’ THEN Quit :- true; 
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IF NOT (Quit) THEN 
BEGIN 



REPEAT { until Ok j>ct true > 



IF K * »A» THEN GotoRC (2, 42)} 
IF K = 'B' THEN GotoRC (5, 42) 

IF K > »C THEN GotoRC (8, 42) j 
IF K « »D» THEN GotoRC (11, 42); 
IF K * 'E' THEN GotoRC (14 42) 
IF K = 'F» THEN GotoRC (17 42) 
IF K = 'S' THEN GotoRC (20 42); 
IF K = »H' THEN GotoRC (23, 42); 



($1-) READ ( P ) (lit) ; (read percent number but first cancel I/O ) 

( checking to prevent error if non real ) 

( key is struck accidentally. Then turn back on ) 
OkjKt := (I0RESULT = 0);(TURB0 PASCAL I/O error chKk. If input ) 

( was in fact correct i.e. a real then ) 

{ the TB function 10RESIH.T will return a 0 ) 



IF (P > 100) OR (P < 0) THEN 0k_pct := false; 

IF Ok _pct AND (Billet length l T+l, K 1 = 0) THEN 
BEGIN 

6otoRC (24, 1); 

Color ( white, red ); 

Blankline (24, 1); 

'/RITE C You are sending officers to an assignment with a length of 0 ') 
DELAY (2000); 

Blankline (24, 1); 

WRITE C Do not forget to change the tour length of that assignment. 1 ); 
DELAY (2000); 

Color ( white, blue); 

Blankline (24, 1); 

END; 

IF NOT 0k_pct THEN Invalid.answer; 

UNTIL 0k j»ct * true; 

0k_pct : = false; 

Transfer .path ( T, A, K) s= (P/100); 

IF K = ’A* THEN 6otoRC (2, 42); 

IF K * * B* THEN GotoRC (5, 42); 

IF K = »C* THEN GotoRC (0 42) 

IF K = »D» THEN 6otoRC (ll, 42); 

IF K = 'E' THEN GotoRC (14, 42) 

IF K = ’F» THEN 6otoRC (17, 42); 

IF K = *6» THEN 6otoRC (20, 42) 

IF K 3 ’H’ THEN 6otoRC (23, 42); 

Color ( blue, white); 

WRITE ( ,, l (Transfer jiath CT.A.KltlOOMsO,' I'); 

Path.total := 0.0; 

FOR K:=»A» TO 'H» DO 
BEGIN 

Path total := Path total ♦ Transfer path ( T, A, K ); 

END; ( path total) 

6otoRC (17, 1); 

WRITE (» '.(Path totaltl00)s4:0,' I'); 

Color ( white, blue T; 

END; ( not quit if) 
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UNTIL Quit ■ trua; 



IF Quit THEN 
BEGIN 



Ok total is trua: 
Path.total := 0.0; 



FOR K:s*A» TO 'H' DO 
BEGIN 

Path total : s Path total ♦ Transfar_path [ T, A, K I| 

EMD;"( path total)" 

Total i* ROUND (Path.total I 100); 

IF (Total s 0) OR (Total s 100) 

THEN Ok total <* trua 
ELSE 
BEGIN 

Ok total I* falsa} 

Okj>ct :« falsaj 
Ok choica !» falsa; 

Quit != falsa; 

Color ( whita. rad); 

SotoRC (24.1); 

Blanklina (24, l); 

WRITE CTha total of transfar parcantagas aust aqual 100 or O’); 
DELAY (2000); 

Blanklina (24, 1); 

WRITE <» Thay now sua to r , Total,’ '); 

DELAY (2000); 

Blanklina (24, 1); 

WRITE (’ You naad to changa anothar path parcantaga. ’); 
DELAY (2000); 

Color ( whita, blua); 

Blanklina (24 1); 

SotoRC (23, 30); 

END; { if parcant not aqual to 100 ) 



END; (if quit trua) 



Quit <> falsa; 

UNTIL Ok.total * trua; 

Qk.total t» falsa; 

Anothar.changa; 

IF Answar in t'N'j’n’I THEN Finishad.chg :» trua; 

UNTIL Finishad.chg 3 trua; 

END; (Changa.arcs) 

(ttuttttmttntntmttmttttmtuutntnmtuutmutmmutnmn 

tmtmmmmmmmmmmmmmmttmtmmmmmmmm) 
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PROCEDURE Changa.langth; 

( This procadura providas tha displays and aachanics for 
changing assignaant tour langth ) 



VAR 

Finishad lang, 
Ok.tour," 
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Qk.actlvity: Boolean; 
BEGIN 



Ok tour i* falsei 
Ok activity I s fils*: 

Finished.leng I* false; 

REPEAT (until finished long true ) 

Chg vir :* 'Which assignment tour length do you wish to change?'; 
Cl eir screen; 

Dchoices; 



REPEAT ( until nuaber entry is correct > 

Clear screen: 

SotoRC (3. 1); 

MR1TELN (» The old Tour ( T 1, Activity ( A 1,' 



length is 



Billet length C T, A 1:0, 1 quarters'll 
WR1 TELHjWR1TELM|6R1TELWj 
WRITE (' How nany quarters long do you want this assignment now? '}{ 

($l-> READ ( New Length ( T, A 1) (tit): (read new length nuaber) 

Ok answer :* (lORESULT = 0>; ( TURBO PASCAL 1/0 error check. If input > 

( was in fact correct i.e. an integer then 1 
( the TB function lORESULT will return a 0 ) 



IF NOT Ok .answer THEN Urong.answ*r| 

UNTIL Ok.answer - true; 

SotofiC (10, 5); 

UR1TELN ('The new ', Tour ( T 
’ length is 1 
Billet .Length ( T, A Is* New. 

Anothef.change; 

IF Answer in I'Y','y'l THEN Finished.leng : s false| 
IF Answer in C'N','n'l TIEN Finished^leng := true} 

IMT1L Finished.leng = true; 

Finished :* false; 

END; ( Change. length ) 



3, Activity (Al, 

. New Length ( T, Al, * quarters.'); 

Length C f, A 1; 



uxnxxtxxxxxxttxxxxtxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXtXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

(.pa) 

PROCEDURE Change.hiliaits; 

( This procedure provides the display and aechanics for 
■aking changes to the high liait data ) 



VAR 

Finished.high, 

Ok. tour,’ 

Ok'activity: Boolean; 
New.liait: Two.Oia.Real; 

BE6IN 

Finished.high := false; 
Ok. tour 7= false; 
Ok'activity t= false; 



REPEAT ( until finished high it tru« ) 

Chg.vnr :■ * Wiich high lialt do you viih to change?*| 
Cl ear screen; 

Dchoices; 



REPEAT < until nusber entry is correct ) 

Billet total t T, A 1 :» Billet node ( T, A, 1 1 ♦ 

Billet node t T, A, 2 I ♦ Billet node I T, A, 3 1 ♦ 

Billet'node t T A 4 1 ♦ Billet 'node I T A 5 1 ♦ 

Billet 'node I T, A, 6 ] ♦ Billet'node I T, A, 7 1 ♦ 

Billet 'node I T A 8 1 + Billet'node I t! A 9 1 ♦ 

Billet'node [ T, A, 10 1 ♦ Billet node I T, A, 11 1 ♦ 

Billet .node t T, A, 12 1 ♦ Billet .node I T, A, 13 1 ♦ 

Billet node [ T, A, 14 1 ♦ Billet node t T, A, 15 1 ♦ 

Billet'node t T A 16 1} 



Cl ear screen 
SotoRC (3, 
URITELN 0 

WtITELNf 
URITELN (* 



I., 

The old high Halt for Tour i T 1, Activi 
* is *, Hlllalt [ T, A 1:8:0,’ officers.*)] 



1, Activity ( A 1, 



New Unit t T, A 
URITELN] 

(RITE (» Hov 
ill-) 

Ole answer r- (IORES0LT 



There currently are 
’ assigned.* ){ 

1 I s Lolinit i T, Al| 



Billet.total [ T, A 1:8:0, 






■any officers do you want as the high Unit now? 

REA DIN ( New Unit t T, A 1) (tie): (read new length nuober) 

0); ( TURBO PASCAL I/O error check. If input ) 
{ was in fact correct i.e. an integer then ) 

( the TB function IORESULT will return a 0 ) 



IF NOT Ok .answer THEN Brong.answer] 



UNTIL Ok.answer « true] 



SotoRC (10,1); 

URITELN ( 1 The new high Unit for 

Activity (A!,' is *. New Unit t 
Kiliait ( T, A 1:* New liait t T, A 1; 
Another .change; 



Tour IT1, 

T, A 1:8:0,* 



officers.'); 



IF Answer in I*N’,’n'l THEN Finished.high := true; 



UNTIL Finished.high * true; 



END] < Change.hilikits ) 



umtmmmmmmmimmtmmmmmmmmmmmmmm 

mmstmtsmsmmmmmtmmmmmmmmmmmtmmms) 



(.pa) 

PROCEDURE Change.loliaits] 

( This procedure provides the display and sechanlcs for 
■aking changes to the low Unit data ) 

VAR 

Finished low, 

0k. tour,' 

0k activity: Boolean; 

New.liait: Two.Dis.Real; 

BE6IN 

Finished.low :* false; 



Ok .tour i* falst) 

Ok'activity :■ false; 

REPEAT (until finished lov is tru«) 

Chg var i* ’Which lov liait do you vish to change?’; 

Cl ear screen; 

khoices; 



REPEAT ( until n tutor entry is correct ) 

Billet total ( T, A 1 :» Billet node I T, A, 1 3 ♦ 

Billet node t T, A, 2 I ♦ Billet node l T, A, 3 1 ♦ 

Billet'node t T, A, 4 ] ♦ Billet 'node [ T, A, S 1 ♦ 

Billet 'node l T, A, 6 ] ♦ Billet'node [ T, A, 7 ] ♦ 

' Billet'node i T A 8 ] ♦ Billet'node [ T. A. 8 1 ♦ 

Billet'node [ T A 10 ] ♦ Billef node [ t, A, 11 1 

Billet'node [ T, A, ' 

Billet'node [ T, A, 

Billet'node [ T, A, 



12 1 ♦ Billet'node [ T, A| 13 1 
14 1 + Billet'node [ T, A, IS ] 
16 1} 



01 ear screen! 

GotoRC (3. 1)| 

WR1TELN (’The old lov Unit for », Tour [ T ). Activity [ A 1, 

> is Loliait [ T, A ItBiO,’ officers.’)} 

WRlTEUf; 

WR1TELN (* There are currently *. Billet total [ T, A IsBiO, 

’ assigned.’); 

Kev liait 1 T , A ) := Lolinit ( T, A J; 

HRlTEUj 

WRITE (’ Hov nany officers do you vant as the lov linit nov? ’); 

(♦!-} READLN ( Nev Liait C T, A 1) (tie): (read nev length nuaberJ 
Ok ansver := (10RES0LT = 0); ( TURBO PASCAL 1/0 error check. If input ) 

( vas in fact correct i.e. an integer then ) 
( the TB function 10RESULT vill return a 0 ) 



IF NOT Ok .answer THEN Urong.ansverj 
UNTIL Ok.ansver * true; 

OotoRC (10,1); 

WR1TELN (’ The nev ’.Tour ITT, Activity (A). 

’ lov liait is Nev liait ( T, A I 181 O,’ officers. ’); 

Loliait ( T, A )i= Nev liait l T, A ); 

Another .change; 

IF Ansver in ('N’,’n’l THEN Finished.lov != true; 

UNTIL Finished.lov = true; 

END| (Change.loliait) 

(mstmmmtmttmmtmmmmmtsmsttmtttmmmstmttmt 



(.pa) 

PROCEDURE Change.accessions; 

( This procedure provides the display and aechanics for 
aaking changes to the accessions ) 

VAR 

Finished.acc: BOOLEAN; 



BEGIN 

REPEAT 

Clearscreen; 
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BotoRC (12, 1)| 

URITCLM (' Currently the nueber of accessions each quarter is’); 

WITEUt 

HRITELM (' »,ROUND(Accessions), 

' officers. * )| 

REPEAT 

BotoRC (IB, 1); 

WRITE (' The new nuabar of accessions aach quartar is: '): 

BotoRC (17, i){ 

WRITE <» Pratt <CR> for no change.'); 

BotoRC (16. S3) | 

(II-) READ ( Accassions) (II*): (read new length nunber) 

Ok.antwar «» (IORESULT = 0)| ( TURBO PASCAL I/O arror chack. If input } 

{ was in fact corract i.a. an integer than ) 
( the TB function IORESULT will return a 0 ) 

IF NOT Ok.antwar THEN ttrong.inswar ; 

UNTIL Ok.antwar « true; 

IF Ok.antwar THEN Finished .acci* true; 

BotoRC (16, 53) | 

WRITE (R0t»D( Accassions),' officers.'); 

Delay (1500); 

UNTIL Finished.acc * true; 

END; ( change accessions) 
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APPENDIX J 



THE FOLLOWING PROCEDURES ARE CONTAINED IN THE DISK FILE 'SCREENS.PAS* 

{mmtmmmsmmmmmmmmmmtmmmmmmmmmt 

mmtmmttmtmmmmmmmmtmmmmmmmmmmm} 



( This file contains the following procedures 

Dchoices 

Dchanges 

Fro#_pathscrn 

Tojathscrn 



PROCEDURE Dchoices; 

( This procedure provides the display screen and answer evaluation 
for the choices indicated } 



VAR 

Ok range, 

Oftour, 

Ok.activity: Boolean; 
BEGIN 



Ok tour := false; 
Ok’activity i= false; 
GoEoRC (1. 1); 

WRITELN (' ' Chg var); 

WRITELN; WRITELN; ' 
WRITELN (' 

WRITELN; 



TOUR 



ACTIVITY'); 



WRITELN (’ 


1. 


FIRST 


A. 


PROFESSIONAL TRNG 


’) 


WRITELN (' 


2. 


SECOND 


B. 


PROFESSIONAL EDUC 


') 


WRITELN (’ 


3. 


THIRD 


C. 


WASHINGTON DC 


’) 


WRITELN (’ 


4. 


FOURTH 


D. 


SHORE CONUS 


’) 


WRITELN (’ 


5. 


FIFTH 


E. 


FLEET UNIT 


’) 


WRITELN (' 


G. 


SIXTH 


F. 


AFLOAT STAFF 


') 


WRITELN (’ 


7. 


SEVENTH 


G. 


SHORE OUTUS 


’) 


WRITELN (’ 


8. 


EIGHTH 


H. 


SEPARATION 


') 


WRITELN (’ 


9. 


NINTH’); 








WRITELN (’ 


10. 


TENTH’); 

ELEVENTH’); 








WRITELN (’ 


11. 








WRITELN (’ 

GotoRC (22,5); 
WRITELN (’ TOUR: 


12. 


TWELFTH’); 








(type nueber <CR>) ACTIVITY: 


(type letter)’); 





REPEAT { Until Ok.tour true ) 

REPEAT { Until Ok.activity true ) 

IF NOT Ok tour OR NOT Ok range THEN 
BE6IN * 

GotoRC (22, 14); 

{$1-} READ ( T ) <»I+) : (read TOUR nunber but first cancel I/O ) 

( checking to prevent error if non integer ) 

{ key is struck accidentally. Then turn back on ) 
Ok.tour := (IORESULT = 0); ( TURBO PASCAL I/O error check. If input > 

( was in fact correct i.e. an integer then ) 

{ the TB function IORESULT will return a 0 ) 



IF <T < 1) OR (T > 12) THEN Ok.range : = false; 

IF NOT Ok.tour OR NOT Ok.range THEN Hrong.ansver; 

END; ( Ok.tour correct if } 

UNTIL (Ok.tour AND Ok.range) = true; 

IF NOT Ok activity THEN 
BEGIN ' 

GotoRC (22, 46); 

READ (kbd, A ); (read ASSIGNMENT letter) 

A s = UPCASE ( A ); 

First := 'A'; Last : = *H' ; Ok.choice : = true; 

Correct.choice ( A, First, Lait, Ok.choice); 

Ok activity : = Ok choice; 

END; ( if not of activity ) 

UNTIL (Ok.tour and Ok.activity ) = true; 

Clear screen; 

END; (choices) 

mxxxxxxxtxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

mmmmmmmmmtmmimmmmmmmmmmmmmm) 

(.pa) 

PROCEDURE Dchanges; 

( This procedure provides the choice aenu display and 
also evaluates the responses ) 

BE61N 



IF NOT (POS (V, Nodedata) = 0) THEN Strip (Nodedata); 
IF NOT (POS ('.', Arcdata) = 0) THEN Strip (Arcdata); 

IF NOT (POS (’.', Lengdata) = 0) THEN Strip (Lengdata); 
IF NOT (POS ('.’, Hilidata) = 0) THEN Strip (Hilidata); 
IF NOT (POS C.'.Lolidata) = 0) THEN Strip (Lolidata); 



Clearscreen: 

GotoRC (3, 5); 

HRITELN (Chg var); 

UR1TELN; 

HRITELN (' Data: 

HRITELN: 

GotoRC (8. 1); 

HRITELN (’ 0. '.Choice zero); 

HRITELN (’ 1. Nuaber o? officers at each assignaent: 

HRITELN (' 2. Transfer path percentages: 

HRITELN (’ 3. Assignaent tour lengths: 

HRITELN (' 4. High liaits: 

HRITELN (' 5. Low liaits: 

HRITELN; HRITELN; 



Data files:’); 



i 

i 

» 

i 

» 



Nodedata ); 
Arcdata ); 
Lengdata); 
Hilidata '; 
Lolidata ); 



REPEAT (until choice correct ) 

GotoRC (16,1); 

WRITE (' Type your selection CO, 1,2, 3, 4, 5): '); 

READ (Kbd. Choice): (read input into var selection) 

First := 'O'; Last := '5'; Ok.choice := true; (inputs for correct.choice 
Correct Choice (Choice, First, ’Last, Ok choice); ( procedure. 

UNTIL OE.choice = true; 



END; (Dchanges) 



mmmmmtmmmmmimmmmmmmmmmmmmmm 

mtmmmmmmmmmmmmtmmmmmmmmmmmmi 

(.pa) 

PROCEDURE Froa.pathscrn; 

{ This procedure siaply draws the illustration on the screen } 

BEGIN 



biear screen; 

HRITELNt' 


/--- 




NRITELNC 


/ 




HRITELHt ' 


/ 


'); 


NRITELNC 


/ 




NRITELNC 


/ 




NRITELNC 


I 


’)» 


NRITELNC 


1 




NRITELNC 


1 




NRITELNC 


1 


»); 


NRITELNC 


1 




NRlTELNt ' 


< 


•); 


NRITELNC 


\ 




NRITELNC 


\ 


•); 


NRITELNC 


\ 




NRITELNC 


\ 




NRITELNC 


\ 


•); 


NRITELNC 


\ 




NRITELNC 


\ 


•); 


NRITELNC 


\ 


»); 


NRITELNC 


\ 


»); 


NRITELNC 


\ 




NRITELNC 


\-- 





END; I Fro»_pathscrn ) 

itxtmtnttmttttnxttmmtttmmttmmtttttmtttmntttmtttmtt 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 
I.pa) 

PROCEDURE Tojathscrn; 

{ This procedure simply draws the illustration on the screen } 

BEGIN 



Cl ear screen; 



ci ear screen ; 

NRITELN C 


\ 




NRITELN C 


\ 


•) 


NRITELN C 


\ 




NRITELN C 


\ 


’)» 


NRITELN C 


\ 




NRITELN C 


\ 




NRITELN C 


\ 




NRITELN C 


\ 




NRITELN C 


\ 


’)» 


NRITELN C 


\ 




NRITELN C 


> 




NRITELN C 


/ 




NRITELN C 


/ 




NRITELN C 


1 




NRITELN C 


/ 




NRITELN C 


/ 




NRITELN C 


1 




NRITELN C 


1 




NRITELN C 


— -/ 


' ); 
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appendix H 



THE FOLLOWING PROCEDURES ARE CONTAINED IN THE DISK FILE 'DISPUTS. PAS* 

(stmmmmmitmmssismmmsmmmmssssmsmssmmsmts 



( This fit* contains tht following proctdurts 

Disp assign 
Disp'tours 
Disp "paths fro* 

Disp oaths'to 
Dispjiilltfs 



) 



PROCEDURE Disp. Assign; 

( This proctdurt providts tht activity v.s. all tours choicts and displays } 
VAR 



I: INTEGER! 



BEGIN 



REPEAT ( until finish'd) 
Finish'd: 3 fals'j 
Cl'arscr"n{ 

C*nt*r <03. 'Uhich activity art 
URITELN;URITELN;UR1TELH| 

URITELN (» A. 

URITELN (* B. 

URITELN (• C. 

URITELN (' D. 

URITELN (» E. 

URITELN <» F. 

URITELN (' 6. 

URITELN (’ H. 

URITELN} 



you int'rast'd in?’); 

Prof'ssional Training*); 
Prof'ssional Education')} 
Washington DC'); 

Short (CONUS) ’); 

Fl"t Unit'); 

Afloat Staff'): 

Short (0UTUS)»>; 
Separation* ) ; 



REPEAT (until choict corrtct ) 

SotoRC (18, 15) } 

WRITE CTypt your choict: '); 

READ (Kbd. A); (rtad input into var stltction) 

A : s UPCAsE (A)* 

First :» 'A'} Last := *H*} Ok choict :» true; 
Corrtct choict ( A, First, Lait, Ok choict); 
UNTIL OE choict 3 trut ; 

Billet total ( T, A 1 : 3 Billet nodt ( T, A, 1 ) 
Billet. node ( T, A, 2 1 ♦'Billtt.nodt ( T, 
Billtt.nodt ( T, A, ' ’ ‘ J ' ’ 



Cltarscrttn; 
URITELN; 
URITELN f 



4 1 + 

Billet'nodt C T| Aj 6 ) e 
Billtt'nodt ( T, A. 8 1 ♦ 
Billet "node C T, A, 10 1 
Billtt'nodt ( T A 12 ) 
Billtt'nodt ( T, A, 14 1 
Billtt'nodt ( T, A, 16 1; 



Billtt'nodt C T, A, 
Billtt'nodt ( T, A, 
Billtt'nodt (U.,,. 
Billet nodt C T, A, 11 I 
Billtt'nodt ( T, A 13 ) 
Billtt'nodt ( T, A, IS 1 



3 

5 

7 

9 1 



For *,Yrcount,' ytar(») and 



♦ 

+ 



QuarUr,' quarUr(i) calculation*.' )| 



Fori ', Activity t A ])| 



THIRD FOURTH FIFTH 
NINTH TENTH ELEVENTH 



URITELNi 
MRITELN (' 

OotoRC (6. l)j 

HR1TELN (' TOURS. 

URITELNi 
6otoRC (8, 10): 

URITELtt ('FIRST SECOND 
6otoRC (14. 8)i 
URITELN ('SEVENTH EIGHTH 
Tt-l: 

It® 5: 

OotoRC (10, I)| 

Billot total t T, A 1 i« Billot nod* I T, A, 1 I + 

Billot nod* t T, A, 2 ]"♦ BilUt nod* t T, A, 3 1 ♦ 

BilUfnod* E T A, 4 1 ♦ BilUfnod* t T, A 5 1 ♦ 

BilUfnod* ( T, A, 6 1 ♦ Bill*! nod* E T, A, 7 1 ♦ 

Bill et “nod* E T, A 8 1 ♦ BilUfnod* £ T, A, 9 1 ♦ 

BilUfnod* ( T, A, 10 1 * Bill*? nod* ( T, A, 11 1 ♦ 

BilUfnod* ( T, A, 12 1 ♦ BilUfnod* ( T, A, 13 1 ♦ 

BilUfnod* ( T A. 14 1 o BilUfnod* ( T A, 15 1 ♦ 

BilUfnod* t T, A 16 It 

WRITE (ROUND (BilUt .total ( T, A l)tl0); 

FOR T S 8 2 TO B DO 

BEGIN 

I := I + 10; 

GotoRC (10, I); 

BilUt total I T, A 1 t» BilUt nod* 1 T, A, 1 1 + 

Billet nod* t T, A, 2 1 fBHUt nod* ( T, A, 3 ) 

BilUt nod* t T, A, 4 1 + Billet nod* ( T, A, 5 1 

Billet node t T, A, 6 1 ♦ BilUfnod* t T, A, 



7 1 

BilUfnod* ( T; Aj 8 ) ♦ BilUfnod* [ Ti Aj 9 ) ^ 

Billet node I T, A, 10 1 ♦ Bill*? node ( T, A, 11 1 

’ 1 12 1 + BilUfnod* ( T A 13 ) 

14 1 * BilUfnod* ( T, A, IS 1 



BilUfnod* E T A 

BilUfnod* ( T, A, 

BilUfnod* ( T, A, 16 ]; 

WRITE (ROUND' (BilUt total ( T, A l):l0)j 
END; 

T: =7: 

It- 3; 

GotoRC (16, I); 

BilUt total ( T, A 1 t- BilUt nod* t T, A, 11 + 

BilUt nod* t T, A, 2 1% Billet nod* I T, A, 3 1 ♦ 

“'ll*t nod* ( T, A, 4 1 ♦ BilUfnod* C T, A, 5 1 + 

Ut nod* C T, A, 6 1 ♦ BilUfnod* ( T, A, 7 1 * 

Ut nod* E T, A, 8 ) + BilUfnod* ET. A, 9 1 ♦ 

Ut'node E T, A, 10 1 * BllUf node E T, A, 111* 
let'nod* E T, A, 12 1 ♦ BilUfnod* E T, A, 13 ] ♦ 

lief nod* E T, A, 14 1 ♦ BilUfnod* E T, A 15 1 ♦ 

BilUt nod* t T, A, 16 It 

WRITE (ROUND (BilUt total E T, A 1):10); 



SIXTH* ); 
TWELFTH*); 



FOR T := 8 TO 12 DO 
BEGIN 



I := I + 10; 
GotoRC (16, X); 
BilUt total E T, 



A 1 



U«t node E T 
Uet nod* E T 
lUt'nod* E T 
llefnode E T 
lUt'nod* E T 
1 let'nod* E T 
lUt'nod* E T 
llefnode E T 



t- BilUt node t T, A, l ] + 

A, 2 1 ♦“Billet node E T, A, 3 1 ♦ 
A, 4 ) ♦ BilUt ’node E T, A, 5 ) ♦ 
A, 6 1 ♦ BllUf node E T, A, 7 1 ♦ 
A, 8 ) ♦ BilUt 'node E T. A, 9 1 ♦ 
A, 10 1 ♦ Billet node E T, A, 11 1 
A, 12 ] ♦ BilUt 'node E T, A, 13 ) 
A, 14 1 ♦ BilUfnod* I T, A, IS 1 
* 16 ); 



WRITE (ROUND~(Bill*t Jotal E T p * A 1):10); 



f 

♦ 

♦ 
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END) 

REPEAT { until umr correct > 

Center (19, 'Do you desire to see another activity breakout? (Y/N) ')) 
READ (Kbd, Answer)) 

Ok answer ;* true; 

Correct answer (Answer, Ok inmrli 
UNTIL Ol .answer * tru«) 

IF Answer in I 'T»,»y'l THEN 
BEGIN 

Clear screen; 

Oisp.Assign; 

END) 

IF Answer in I »N','n» 1 THEN Finished :> true; 

UNTIL Finished * true; 

Cl ear screen) 

END) (Oisp .Assign) 

ixxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxttxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXtXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 

(.pa) 

PROCEDURE Disp Jours; 

( This procedure provides the tour v.t. all activities choices and displays ) 
VAR 



Ok range. 

Ok Jour, 

Ok.activity: Boolean; 
BEGIN 



Ok range :* false; 
Ok'tour »* faise; 
Ok'activity := false; 



REPEAT ( until finished ) 
Cl ear screen; 

GotoRC (3, 5); 

CENTER (3, ’Which Tour do 
URITELN;URITELN; 

URITELN (' 

URITELN; 

URITELN (' 

URITttN (' 

URITELN (' 

URITELN (* 

URITELN (* 

URITELN (• 

URITELN (' 

URITELN (' 

URITELN (• 

URITELN (* 

URITELN (' 

URITELN (' 

6otoRC (22, 5): 

URITaN (' TOUR; 



you wish to see displayed?*); 
TOUR ')) 



1. FIRST '); 

2. SECOND •); 

3. THIRD *); 

4. FOURTH '); 

5. FIFTH '); 

6. SIXTH '); 

7. SEVENTH *); 

8. EIGHTH '); 

9. NINTH*); 

10. TENTH*); 

11. aEVENTH*)} 

12. mFTH*)} 

(type nunber<CR»*)| 



REPEAT ( Until Ok tour and Ok range both true) 
GotoRC (22, 14); " 
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(•!-> REM ( T ) (HO | (read TOUR nu«k*r bat first c*nc*l I/O ) 

< chKking to prevent *rror if non lnt*g*r ) 

( k*y if struck accidentally. Th*n turn back on > 
Ok tour «» U (RESULT >0)) { TURBO PASCAL 1/0 *rror chKk. If Input ) 

{ vis in fact correct i.*. an integer than ) 
{ the TB function I (RESULT will return a 0 ) 

IF (T >« 1) ANB (T <* 12) THEN Ok rang* ;= true; 

IF (T < 1) OR (T > 12) THEN Ok rang* !* fals»| 

IF NOT Ok.tour OR NOT Ok.rang* THEN Urong.answtr; 

UNTIL (Ok tour AND Ok rang*) > tru*| 

FOR A :« »A» "TO 'H» DO ' 

BE81N 

Bill *t total t T, A 1 :« BilUt nod* t T. A, 1 1 ♦ 

' BilUt nod* t T, A, 2 1 ♦ BilUt nod* I T, A, 3 1 f 

BilUt nod* I T, A, 4 1 + BilUt nod* I T, A, 5 1 ♦ 

BilUt nod* t T A, 6 1 ♦ BilUt nod* t T, A 7 1 ♦ 

BilUt "nod* l T A 8 1 ♦ BUUt'nod* t Tl A 9 1 ♦ 

BilUt ‘nod* t T, A, 10 ) * BilUt nod* I T, A, 11 ) ♦ 

BilUt ‘nod* t T, A 12 1 ♦ BilUt nod* t T A, 13 1 * 

BilUt ‘nod* I T, A, 14 1 + BilUfnod* t T, A, IS 1 ♦ 

BilUt ‘nod* I T, A 16 1; 

END | (for loop! 

Cl earner **n; 

BR1TELN C For \Yrcount,* 

UR1TELN (' Fors 

URITELN (' '! 

URITELN ( 

URITELN ( 

URITELN ( 

URITELN ( 

URITELN ( 

URITELN ( 

URIT&N ( 

URITELN ( 

URITaN ( 

URITaN ( 

URITaN ( 

URITELN ( 

URITaN ( 

URITaN ( 

URITELN ( 

URITELN ( 

URITELN ( 

URITELN ( 



y«ar(s) and ’.Quarter.’ 
Tour C T )){ 



quart«r(s) calculations. ’); 



Activity: 

Professional Training 

Professional Education 

UasMngton DC 

Shore (CONUS) 

Fl««t Unit 

Afloat Staff 

Shor* (OUTUS) 

Separation 

Tour sun C T 1 j* BilUt total ( T, 'A 
Bill «t ‘total t T, 'C 
BilUt ‘total t T, 'E 
BilUt'total [ T 'G 
URITELN (» Total officers : ' 



A» 



Nunber of offices')} 

ROUND (BilUt .total t T 

ROUND (BilUt .total ( T 

ROUND (BilUt .total ( T 

ROUND (BilUt .total C T 

ROUND (BilUt .total i T 

ROUND (BilUt .total ( T 

ROUND (BilUt .total C T 

ROUND (BilUt .total i T 

) ♦ BilUt total t T, 'B 
1 * BilUt'total t T, *D 
1 * BilUt'total ( T, 'F 
) ♦ BilUt'total I T, *H , 
ROUND (Tour sun [ T 1):105; 



1 ♦ 
1 ♦ 
1 ♦ 
•h 



Dili); 
* >8 
B» Dili); 

C' Dili); 

0* Dili); 

E> Dili); 

F' Dili); 

G' Dili); 

H' Dili); 
')f 



REPEAT ( until answ»r corrKt ) 

Blank! in* (24,1); 

URITE ('Do you d*sir* to s** another tour breakout? (Y/N) 
READ (Kbd, Answer); 

Ok answ«r i= true; 

CorrKt answ«r (Answer. Ok answ*r); 

UNTIL OE.answer - tru»; ‘ 

IF Answer in C 'Y'.'y'l THEN 
BE6IN 

Disp tours; 

END;‘ 

IF Answer in t 'MVn 1 1 TIEN Finished := tru*j 



'>1 
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UNTIL Flaishad ■ trua; 

Claarscraan; 

EMD| (Disp.Tours) 

{tnmutmxxxxxxxmxxtuxttxxnxxxxxxnuxxxmnuxnxxxxxxxuuxuxxxxx 

xxtmnxxxxxxtxxxuxuxxxxxxxxxxxxxxxtxxxxtxxxxxxxxxxxttxtxxntxxxixxxxxmx) 

(.pa) 

PROCEDURE Disp_paths_froa; 

( This proctor* displays tha transfar path percentages FROH > 

m 

Ok salKtion, 

Ok' tour, 

Ok 'activity! BOOLEAN) 

22': CHAR) 

R. 

RR i INTEGER) 

BEGIN 

Ok tour := falsa) 

Ok'activity i 3 falsa) 

Finishad := falsa; 

REPEAT (until finishad) 



REPEAT ( until tour/activity salKtion ok ) 

Ok salKtion !* trua; 

Claarscraan: 

Cho var :> * Which assignaant do you vish to saa tha transfer paths iron?'; 
Dcnoicas; 

Claarscraan) 

IF (T * 12) THEN 
BEGIN 

Ok salaction i* falsa; 

Color ( vhita, rad); 

Blank! ina (24,1); 

WRITE (’ Thara ara no transfar paths froa Tvalfth Tour assignaents.M} 
DELAY (2040); 

Color ( vhita. blua); 

Blanklina (24,1); 

END; ( if tour u is chosan) 

IF A in [»H»1 THEN 
BE6IN 

Ok salKtion t s falsa; 

Color ( vhita. rad); 

Blanklina (24,1); 

WRITE (’ Thara ara no transfar paths froa Separation assignaants.’); 
DELAY (2000); 

Color ( vhita, blua); 

Blanklina (24,1): 

END; (if tour 12 is chosan) 



UNTIL Ok.salKtion 3 trua; 

Froa pathscrn; 

OotoRC (6, 3); 

WR1TELN (* Display for »); 

OotoRC (7. 3); 

WRITELN (* », Mount,’ yaars and*)) 
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lim,' officers* ){ 



KITE (' ', Quarter,' quarters'); 

BotoRC (10, 5)i 
WRITE (> FRM')j 
BotoRCdl. 2)1 

WRITE (Tour I T ], Activity C A I); 

6otoRC (13. 6): 

KITE (ROUW) (Billet nodelT. A, ID , ' officers'); 

WRITE (’ vill be transferred.'); 

R s s Is 
RR «* 2; 

FOR ZZ i» »A» TO »W DO 
8E81M 

BotoRC ( R, 40) | 

WRITE ('TO ». Tour ( T+l 1, Activity ( ZZ ])| 

BotoRC (RR. 42) ( 

RITE (’ ', (Transfer oathtT. A, ZZltlOO) i4i 0, 'X or '. 

Route ((Billef nodeu,A,l])t(Transfer _path(T,A, 

R «« R ♦ 3j 
RR i- RR t 3j 
END) 

REPEAT (until answer correct ) 

Blankline (24, 1); 

RITE ('Do you desire to see another transfer path breakout? (Y/N) ’); 
READ (Kbd, Answer )[ 

Correct answer (Answer, Ok answer); 

WITH OE.answer * true} 

Ok tour i« falser ( to prevent procedure fro* ) 

Ok "activity !» false;! repeating endlessly ) 

IF Answer in i'N','n>] THEN Finished!* True; 

UNTIL Finished * true; 

END; (Disp_paths_froa) 

{mtimtttmttttmtmtttmtmmtmtmtnttutximnttttnnmtnt 



(.pa) 

PROCEDURE Disp jjaths.to; 

( This procedure displays the transfer path percentages TO ) 



Ok selection, 

Ok "tour, 

Ok" activity! BOOLEAN; 

ZZ i CHAR; 

R. 

RR : INTE8ER; 

Total! REAL; 

8ESIN 

Ok tour !■ false; 

Ok'activity !» false; 

Finished := false; 

REPEAT (until finished) 

REPEAT ( until ok selection ) 

Ok selection i* true; 

Clear screen: 

Chg_var :« 'Which assignaent do you wish to see the transfer paths to?'; 
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Dchoices; 

ClMTfCrMftl 



ir a « i) then 

BE6IN 



Ok selection t» false; 

Color ( white, red)| 

Blankline (24,1)1 

KITE (' There are no transfer paths to First Tour assignnents.')} 
DELAY (2000)} 

Color ( white, blue)} 
llaakllne (24, l)( 

END} ( if tour 12 is chosen) 



UNTIL Ok .selection * true} 



To 

OofoRC (6, S3) | 

K1TELN (* Display for ’)} 

GotoftC (7, 33); 

KlTELN(Yr Count,' years and’)} 

OotoRC (8, 33)} 

KITE (Quarter,* quarters*)} 

OotoRC (10, 33); 

K1TELN (* TO 1 ); 

OotoRC (U, 55)i 

8RITELN (Tour t T ], Activity l A 1); 

OotoRC (19, 43); 

WRITE ('NOTE: Percentages reflect the 2 of*)} 

OotoRC (19, 45)} 

KITE (’officers transferred OUT OF the*)} 

OotoRC (20, 43)} 

KITE ('indicated 'FROM* assignnent.'); 

R t* li 
RR i* 2} 

Total : s 0} 

FOR ZZ t> »A* TO *6* DO 
BEGIN 

SotoRC ( ft 1)j 

HRITELN <»fooM », Tour [ M ), Activity ( ZZ 1); 

OotoRC (RR. I)} 

KITE (".(Transfer pathlT-l,ZZ.AII100)«4t0.’2 or ’, 

ROUND ((Billet node(T-l,ZZ,U)t(Transferjiath(M,ZZ, A))),» officers') 
Total t= Total ♦ ((Billet nodelT-l,ZZ,U)t(Transfer path(T-l,ZZ,A))){ 

R t» R ♦ 3} 

RR : s RR + 3} 

END; 

OotoRC (13, 53); 

KITE (ROUND (Total), * officers'); 

REPEAT (until answer correct ) 

Blankline (24,1); 

KITE ('Do you desire to see another transfer path breakout? (Y/N) '); 

READ (Kbd, Answer)} 

Correct answer (Ansver, 0k answer)} 

UNTIL OE.ansver = true; ~ 

0k tour t s false} ( to prevent procedure Iron ) 

Objectivity t» false;! repeating endlessly ) 

IF Ansver in ('N*,*n»I THEN Finished!* True; 

UNTIL Finished * true} 

END; ( Disp.paths.to ) 
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{ttmtttmmtmmmtmtttmmmnuttmtmttttmtttuttximmt 

m t m mt m mmrnnmmmmtmtmtmmtntmmmtnttntntt) 



(.pa) 

PROCEDURE Disp.billetsj 

{ This procedure provides the billet by tour length choices and displays > 
VAI 

Officer totalss REAL) 

I t INTEGER) 

Finished, 

Ok tour, 

Ok’activityi BOOLEAN) 

BEGIN 



Ok tour s* false) 

Ok .activity i a false) 



REPEAT ( until finished ) 



Clearscreeni 

Chg.var 1 = 'Which assignnent do you vish to see?') 
Ocbolcesi 



Icesj 

Clearscreeni 
URlTELNjifRlTELN 
8R1TELN (’ 



Alter Yrcount,' year(s) 

wurter.' quarter(s)')i 

W1TELN (’ *,Tour ITS,' '.Activity [All) 

UfilTELN (' Tour Length of ', 

Billet length tT.Al,' quarters.’)) 
NRITELN (’ Officers assigned]')) 

UR1TELN) 

Officer.totals t> 0) 



FOR I s= 1 TO 16 DO 
BEGIN 

DR1TELN (’ ’,ROUND(Billet.node t T, A, I )) » TLength ( I 1)| 

Officer totals :» Officer totals ♦ Billet node t T, A, I 1; 

END) < 3o loop) 

UfilTELN; 

URITELN (’ The total nunber of officers assigned is 
ROUND (Officer.totals))) 

REPEAT { until ansver is correct ) 

Blankline (24,1)) 

WRITE ('Do you desire to see another assignnent? (V/N) ’)) 

READ (Kbd, Answer)) 

Correct answer (Ansver, Ok answer)) 

UNTIL OE.answer * true) * 

IF Ansver in f'N'.'n’l THEN Finished] =true) 



UNTIL Finished * true) 



Cl ear screen) 

END) < Olsp.billet nodes ) 
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appendix L 



THE FOLLOWING PROCEDURES ARE CONTAINED IN THE DISK FILE 'BATAOUHP.PAS* 

(uxtmmuttttiuntmmt nwim xxtnxtmtnmtmnumtuttxmu 



< This lilt contains th* following procaduras 



Rod* duap 
Arc ffuap 
Lanith duap 
HU fa duap 
Lolia.duap 



) 

PROCEDURE Noda.duap) 

( Tbit procadur* srovidas th* displays and a*chanic*s for 
duapina th* nuao*r of offlc*rs p*r *ssigna«nt data 
froa to* prograa into a disk fit* ) 

VAR 



Ok.fi Ut BOOLEAN) 
BEGIN 



Cl*arscr**ni 
0k.fi I* i* fall*) 

IF NOT R«plac* THEN 
BEGIN 

REPEAT ( until output filtnaa* is l*ss than 8 Utttrs) 

SotoRC (10,10); 

W1TELN CEntar output filanaa* (aaxiaua of 8 lattars)')) 

Color ( r*d, whit*)) 

SotoRC (13, 8): 

ttlTELN (• UNLESS YOU DESIRE TO OVERWRITE PREVIOUS DATA. DO NOT USE *>: 
Dir list) 

Color ( whit*. blu«); 

OotoRC (20. 13) j 
READLN (Output .naa*)) 

IF (Langth (Output .naa*) > 8) THEN Wrong.ansvar 



Ok fil* »* truai 

END) ( if langth of answar ovar 8 lattars ) 

UNTIL Ok.fila = trua; 

Ok fll* i* falsa; 

Color ( whit*, blua); 

END) ( if raplac* falsa ) 

Blank] in* (24, 1); 

KITE (' DuapSng bi 1 1 at nod* data to tha fil* naaad i Output naaa); 
Ti* 1) 

Skip :» • •; 

Output. naa* i ■ CONCAT (Output .naaa,'. nod’ ); 
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Nodtdttt !■ Outwit MM| 

Strip (NodMtet«>f 

A8S1QM (Data flit, Output _na«t)| 

REWRITE (O 4 t 4 .fi It) | 

FOR T t= I TO 12 DO 
BEGIN 

FOR A i« ’A’ TO *H* DO 
BEGIN 

FOR L «■ l TO 16 DO 
BEGIN 

UNITE (D4tt filt, T )| 
WRITE (Data'filt Skip)) 



tt nodt l T, A , L ]iBiO)| 

END) < L loop') ' 

END) ( A loop ) 

END) { T loop ) 

CLOSE (Data.filt)) 

END) ( Nodt duap ) 

(.(>4) 

PROCEDURE Arc.dunpj 

( This proctdurt providtt tht displays ind ttohanictt for 
during tht transftr path ptrctntagDt dtt4 to t disk filt ) 



BEGIN 

ClttrscrtMt 
Ok. filt :> falst) 

IF NOT Rtplact THEN 
BEGIN 

REPEAT { until output filtnant is ltss than 8 lttttrs) 

GotoRC (10,10)) 

WITELN (’Enttr output filtnant (tannin of 8 lttttrs)*)) 

Color ( rtd, vhitt)) 

GotoRC (13, 8): 

KRITELN (’ UNLESS YOU DESIRE TO OVERWRITE PREVIOUS DATA, DO NOT USE ’)) 
Dir list) 

Color ( vhitt. blut)| 

GotoRC (20, 13) | 

REABLN ( Output. nant) ; 

IF (Ltngth (Output .natt) > 8) THEN Wronf.ansvtr 




VAR 




ELSE 

BEGIN 
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Ok fit* «» true; 

EM0f 

UNTIL Ok.file * tru«| 

Ok HU :* false; 

Color ( white, blue); 

END) 

Blankline (24, 1)) 

KITE ('Duapiitg transfer path percentage data to the file ’, Output nase); 
Skip :» * *; 

Output .nane := CONCAT (Output_naoe,\ard')( 

Arcdata :* Output aaae; 

Strip (Arcdata); " 

ASS ISA (Data file,output naee); 

REKITE (Data.file); 

FOR T i* 1 TO 12 DO 
BE6IN 

FOR A :« 'A» TO 'K» DO 
BEOIR 



FOR K :« 'A» TO »H» DO 
BE61I 



KITE (Data file, T ); 

KITE (Data'file, Skip)) 

KITE (Data'file, A )» 

KITE (Data'file, Skip)) 

KITE (Data'file K ); 

KITE (Data'file, Skip); 

K1TELN (Dafa file, Transfer .path 
END; ( K loop ) 



T, A , K ):Si2); 



END; f A loop ) 



END; ( T loop ) 
CLOSE (Data.file); 



END; 



tttnxmtutmtttmtntttttmuntmmtutnttmmnntmnunnttt) 



(.pa) 

PROCEDURE Length jiuop; 

( This procedure provides the displays and aechanics for 
dusping the assignment tour length data Iron the progras 
to a disk file ) 



VAR 



Ok.filei BOOLEAN; 

BE6IN 

Cl ear screen: 

Ok.file :» false; 

IF NOT Replace THEN 
BE8IN 

REPEAT ( until output filename is less than 8 letters) 
OotoRC (10,10); 
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R1TELN ('Eater output fileMM (Miiaun of B letters)’); 

Color ( red, whlt«)| 

SotoRC (13, 8)i 

RITELN (' UNLESS YOU DESIRE TO OVERWRITE PREVIOUS DATA, DO NOT USE ’); 
Dirlist; 

Color ( wit*. blue); 

SotoRC (20. 13); 

REASLN ( Output _mm); 

If (Length (Output jmm) > 8) THEN Ihrong.aasver 



ELSE 
6E8II 
ok m« t> 
END) 



tru«| 



UNTIL Ok.flle « tru*| 

Ok Ml* :» false: 

Color ( white, blue); 

END; 

Blankllne (24, 1); 

RITE (’Duaping billet lengths date to the file naued i ’, Output mm); 

T:» I; 

Skip t* * ’; 

Output mm I s COMAT (Output.MM,Med’); 

LengdaCa i* Output. mm; 

Strip (Lengdata); 

ASS18N (Data file, Output naae); 

REW1TE (Dati.flle); 

FOR T »» I TO 12 DO 
DE61N 

FOR A :» ’A* TO »H» DO 
BESIN 

RITE (Data file, T ); 

RITE (Data'file Skip); 

RITE (Data'file, A ); 

RITE (Data'file. Skip); 

R1TELM (Dafa file, Billet length l T, A lilO); 

END; ( A loop ) ' 

END; ( T loop ) 

CLOSE (Data.fi le); 

END; ( length duap ) 

{tmtmmmmmssmmstmmimmmsmmmmmmsttstmm 

mmtssmmmmsmsmmmstmtstmsmsssimmmtttssstmmi} 

(.pa) 

PROCEDURE Hilla.dunp; 

( This procedure provides the displays and aechanics for 
dunping the high liait data froa the prograa to a disk file ) 

VAR 



Ok.fllet BOOLEAN; 
BE61N 

Cl ear screen: 
Ok.file := false; 
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IF NOT R*plac* THEN 
BEGIN 



REPEAT { until output (IImiw it lot* than 8 Uttar*) 

SotoRC (10.10)} 

NRITELN (’Ent*r output fiUnaa* (naiiaua of 8 l*tt*r»)’)f 
Color ( rod, vhit*)} 

6otoRC (13, 8)t 

NRITELN (’ UNLESS YOU DESIRE TO OVERWRITE PREVIOUS DATA, DO NOT USE ’)} 
Sir list} 

Color ( vhit*. bin*)} 

SotoRC (20, 13) } 

READLN (Output .hm) | 

IF (Ltnfth (Output .nan*) > 8) THEN Wrong.ansv*r 



ELSE 

K8II 



8k lilt i» tru«| 
END} 



UNTIL Ok.fil* ’ tru*| 



Ok fil* i« fal*«| 

Color ( vhit*, blu*)} 

END; ( if not rtplac* ) 

Blanklin* (24, 1); 

(SITE (’Duaping high Unit data to th* fil* naatd s ', Output.naa*)} 
Output nan« :> CONCAT (Output .nano, ’.bid’)} 

Hilldafa != Output nan*} 

Strip (Hilidata); 

ASSIGN (Data fil*, Output nan*)} 

REWRITE (Data.fil*)} 

FOR T i« 1 TO 12 DO 
BEGIN 



FOR A := ’A* TO ’H’ DO 
BEGIN 

WRITE (Data fil«, T ); 

WRITE (Data'fil*, Skip)} 

WRITE (Data'fil*, A ); 

WRITE (Data'fil*, Skip)} 

WRITELN (Data fil*, HUiait i T, A ItlOiO)} 

END} ( A LOOP*) 

END} ( T LOOP ) 

CLOSE (Data.fil*); 

END; ( Hilinit dunp ) 

(tttummmtmmnmtttmttmtmttttmtmutnttmtttmtnntn 

tmtntutttntmtmtnnntnntmtttttttmntmtnttttttntttttntttx) 

(.pa) 

PROCEDURE Lolia.dunp; 

( This proc*dur« provides the display and nKhanics for 
duaping th* lov Unit data froa th« prograa to a disk fil* ) 

VAR 



Ok.flUt B00LEAN| 
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K8IN 



CU*rtcr**ni 
Okjil* i= Tals*; 

IF MOT R*plac* THEN 
BEfilN 



REPEAT { until output fil*nan* is loss than 8 UtUrs) 

OotoRC (10, 10) | 

WRITELN (*Ent*r output fil*naa« (naxinu* o( 8 Utt*rs>')| 

Color ( rod, vhit*); 

SotoRC (13, 8)i 

WRITELN (’UNLESS TOO DESIRE TO OVERWRITE PREVIOUS DATA, DO MOT DSC * ) f 
•irlist; 

Color ( vhit*. blu*){ 

SotoRC (20, 13)f 
READLN (Output .mm) ; 



IF (L*n*th (Output .noM) > 8) THEN Wron$_ansv*r 



ELSE 

BEGIN 



Ok (il« := tru*; 
END | 



UNTIL Okjil* > tru*| 

Ok fil* t> fals*; 

Color ( vhit*, blue); 
END) ( if not rtplac* ) 



Blanklin* (24, 1); 

HR1TE ('DuapiM) low Unit dot* to th* fil* naa*d « ', Output naa*); 
Output non* :» COMCAT (Output .nan*, Mod'); 

LolidaEa := Output nan*; 

Stria (Lolidata); 

ASSIGN (Data fil*. Output naa*)i 
REWRITE (DataJiU); 

FOR T :* 1 TO 12 DO 
BEGIN 



FOR A i* *A* TO *H» DO 
BEGIN 

WRITE (Data fil*, T ); 

WRITE (Data'fiU, Skip); 

WRITE (Data'fiU, A ); 

WRITE (Data'fiU. Skip); 

WRITELN (Data fil*, Loliait I T, A ItlOiO); 
END; ( A LOOP') 

END; ( T LOOP ) 

CLOSE (Data.fll*); 

END; ( Lolinit dunp ) 
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APPENDIX H 



THE FOLLOWING PROCEDURES ARE CONTAINED IN THE DISK FILE 1 ANSWERS. PAS' 

(mtmmmtmmmmmmmmmmmmmmmmmmmmn 

mmmmmsmsm*mmmm*smsstmmttmmmstmsssstsmst} 

{ This file contains the following procedures 

Invalid.answer 
Wrong.answer 
Correct.choice 
Correct’answer 
Another "change 



PROCEDURE Invalid.answer; 

( This procedure provides the warning aessage on the bottoa of the screen ) 
BEGIN 

Blankline (24, 1): 

Color ( white, red); 

WRITE (' Invalid answer, try again.'); 

DELAY (2000); 

Color ( white, blue); 

Blankline (24, 1); 

END; ( Invalid.answer ) 

{mummmimmmmmmmmmmmmmmmmtmmmm 
t mmttmmmmmmtmmmmmmmtmttmmtmmmmm) 



(.pa) 

PROCEDURE Wrong.answer; 

( This procedure provides the warning aessage at the bottoa of the screen } 
BEGIN 

(sake a red box) 

Color ( white, red); 

6otoRC (24, 15); 

WRITE (' Your response is incorrect, please try again.'); 

Color ( white, blue); 

DELAY (2000); 

Blankline (24, 1); 

END; ( Wrong.answer ) 

{mtmmmmmmmmmmmmmmmmmmttmmmtmm 



(.pa) 



PROCEDURE Correct .answer; 

( The procedure evaluates the yes/no response ) 
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BE0IN 



IF Ansver in I 'VVyVNVn'l THEM Ok.Ansver «» tru* 

ast 

BEGIN 

Ok.Ansver s s false; 

Hrong.ansver ; 

EMD; "{ error condition if ) 

END; { Correct.ansver) 

xxxxxxxxxxxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx) 

{.pa) 



PROCEDURE Correct.choice; 

{ This procedure evaluates the response for correct choice > 
BEGIN 



IF Choice in [ First 

asE 

6E6IN 

Ok.choice .*= False; 
Urong ansver; 

END; l choice if) 



Last] THEN Ok.choice := true 



END; { Correct.choice ) 



{XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX xxxxxtx 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 



(.pa) 

PROCEDURE Another.change; 

{ This procedure proapts the user for another change ) 
BEGIN 

REPEAT { Until ansver correct } 

Blankiine (24,1); 

URITE (' Do you desire to change another? (Y/N) : '); 
READ ( Kbd, Answer); 

Ok.ansver s= true: 

Correct ansver ( Ansver, Ok ansver); 

UNTIL Olc.ansver = true; 

END; { Another.change ) 
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appendix cl 



THE FOLLOUING PROCEDURES ARE CONTAINED IN THE DI8K FILE 'BTORDATA.PAG* 

{ This file contains the following procedures 
Save data 

Replace.data ) 

PROCEDURE Save.data; 

{ This procedure provides the display and nechanics for 
storing data onto a disk file ) 

VAR 

Answer i CHAR; 

Ok. answer i Boolean; 

BEGIN 



Finished i* false; 

Center (21, 'Do you desire to save any of the data to a disk file? (Y/N) '); 
READ (Kbd, Answer); 

Ok answer <■ true; 

Correct. answer (Answer, Ok .answer); 

IF NOT Ok.answer THEN Save.data; 

IF Answer in I 'Y»,»y» 1 THEN 
BEGIN 

Clearscreen; 

6otoRC (10, 1); 

URITELN; 

URITELN (' This procedure provides you with the opportunity to '); 
URITELN (* save the data as presently configured in the prograa '); 
URITELN (' to a disk file naned by you. '); 

Chg var i* 'Uhich data do you wish to save?'; 

Choice zero t s 'None/ finished saving data.'; 

6otoRC"(23,38); 

Pause; 



REPEAT (until finished ) 
Clearscreen; 

Dchanges; 



IF Choice 
IF Choice 
IF Choice 
IF Choice 
IF Choice 
IF Choice 



* 'O' THEN 

* »1» THEN 

* '2' THEN 

* '3' THEN 
= »4* THEN 
» *5» THEN 



Finished : s true; 
Node dunp; 
Arc.dunp; 

Length dunp; 

Hilin dunp; 
Lolin>np; 



UNTIL Finished * true; 



Replace.data; 



END; ( choice Y to save data ) 
END; ( save data procedure ) 
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| A a -*.A a a a.^*. A.A. a. ^ a a aaa A- A — *■ A a a A A A A -*■ A A A -A. 

imtnmammmmmmttummtmtmnmmmmmmmmm 

ntstunttmttnnmtntmntunnmmmtttmtnmnmmmnint) 

{.p*> 

PROCEDURE Replace.data; 

{ This procedure provide* the displays and nechanics for 
replacing data in the default data filet > 

BEGIN 

detriment 

Center <10, 'Now that you have uved that data to your own file, do you’); 

Center (13« f desire to ute any of it to replace the bate data? (Y/N) ’); 

READ (tbd, Answer) | 
detriment 
Oh answer :« true; 

Correct .answer (Answer, Ok_aatwer)| 

IF NOT Ok answer THEN 
BEGIN " 

Replace data: 

END; ( Orong choice if ) 

IF Answer in I >Y»,’y’l THEN 
BEGIN 

Clearscreeni 

Center (6,’ You have chosen to save the data as it is currently ’); 

Center (7. 'calculated by the prograa, to be the new initialization data.’); 

Color ( red, white); 

Center (V This it a serious step.'); 

Color ( white, blue); 

Center (11,’ You will be iosing the ’); 

Center (12, * default data established in the nodel. ’); 

GotoRC (23,30); 

Pause; 

REPEAT (until finished ) 

Clearscreen; 

Chg,var := 'Which data file do you desire to change PERMANENTLY?’; 

Choice zero s» ’None/finished replacing data.’: 

Dchanges; 

IF Choice * ’1’ THEN Output nane :* ’Nodes'; 

IF Choice = ’2’ THEN Output 'nane t* ’Arcs’; 

IF Choice = ’3’ THEN Output nane :* 'Lengtn'j 

IF Choice 3 ’4’ THEN Output'nane t* ’Hillnit'j 

IF Choice * ’S* THEN Output>ane := ’Lolinit'; 

IF Choice > ’0’ THEN Finished :• true 

ELSE 

BEGIN 

REPEAT 

Clearscreen; 

Color ( red, white); 

GotoRC (i2. 3); 

WRITE (* ARE YOU SURE YOU WANT TO REPLACE THE ’, Output nane,’ DATA? (Y/N) ’); 
Coior ( white, blue); 

READ (Kbd, Answer); 

Correct answer (Answer, Ok answer); 

UNTIL OE.answer = true; ' 

IF Answer in C’Y’,’y’l THEN 
BE6IN 

Replace : 3 true; 
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IF Choice * 
IF CHoic* * 
IF Choice ■ 
IF Ckoic* • 
IF Choice > 



»1» 

'V 

' 3 ' 

' 4 ' 

* 5 * 



THE! Node doap | 

THEM Arc.iunpj 
THEN Lenatkottap) 
THEN Hllia.fapi 
THEN Lolia duapi 



Finithed i> faltej 
Replace i« false) 



END} ( if antaer it yet ) 

IF tatter in PIP,'*'] THEN Finithed i« faltei 
EM| < IF Choice » *0' THEN Finithed i> true)) 
UNTIL Finished - true) 

ENS| { choice • T if ) 

ENO) { Replace data ) 
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